ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
pm_fftnr::getFFTR Interface Reference

Generate and return the Reverse (unnormalized) Fourier Transform of a periodic sequence of type complex or real of arbitrary kind parameter. More...

Detailed Description

Generate and return the Reverse (unnormalized) Fourier Transform of a periodic sequence of type complex or real of arbitrary kind parameter.

See the documentation of pm_fftnr for more details.

Parameters
[in]data: The input contiguous vector of arbitrary size of,
  1. type complex of kind any supported by the processor (e.g., CK, CK32, CK64, or CK128),
  2. type real of kind any supported by the processor (e.g., RK, RK32, RK64, or RK128),
containing the periodic sequence whose FFT is to be computed.
Returns
fft : The output vector of size getExpNext(size(data), 2) of the same type and kind as the input data, containing the FFT result.


Possible calling interfaces ⛓

use pm_fftnr, only: getFFTR
type_of(data) :: fft(1 : getExpNext(size(data)))
fft(:) = getFFTR(data(:))
pm_fftnr::getFFTR
Generate and return the Reverse (unnormalized) Fourier Transform of a periodic sequence of type compl...
Definition: pm_fftnr.F90:611
pm_fftnr
This module contains procedures and generic interfaces for computing the Discrete Fourier Transform o...
Definition: pm_fftnr.F90:184
Warning
The condition 1 < size(data) must hold for the corresponding input arguments.
This condition is verified only if the library is built with the preprocessor macro CHECK_ENABLED=1.
Remarks
The procedures under discussion are impure.
Note
This functional generic interface is simply a more flexible but slower wrapper around the subroutine generic interface setFFTR.
As such, this functional interface can be significantly slower than the corresponding subroutine interface.
See also
getFFTF
getFFTR
getFFTI
setFFTF
setFFTR
setFFTI


Example usage ⛓

1program example
2
3 use pm_kind, only: SK, IK, LK
4 use pm_io, only: display_type
5 use pm_fftnr, only: getFFTF, getFFTR
6 use pm_distUnif, only: getUnifRand
7 use pm_mathCompare, only: isClose
8 use pm_err, only: setAsserted
9
10 implicit none
11
12 integer(IK) :: i
13 integer(IK) :: lenData
14 type(display_type) :: disp
15 disp = display_type(file = "main.out.F90")
16
17 do i = 1, 5
18 block
19 use pm_kind, only: TKC => CKS
20 real(TKC) :: reltol
21 complex(TKC), allocatable :: data(:), atad(:)
22 call disp%show("lenData = getUnifRand(5, 100)")
23 lenData = getUnifRand(5, 100)
24 call disp%show("lenData")
25 call disp%show( lenData )
26 call disp%show("data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)")
27 data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
28 call disp%show("data")
29 call disp%show( data )
30 call disp%skip()
31 call disp%show("atad = getFFTR(getFFTF(data))")
32 atad = getFFTR(getFFTF(data))
33 call disp%show("atad = atad / size(atad)")
34 atad = atad / size(atad)
35 call disp%show("atad")
36 call disp%show( atad )
37 call disp%show("reltol = sqrt(epsilon(1._TKC))")
38 reltol = sqrt(epsilon(1._TKC))
39 call disp%show("reltol")
40 call disp%show( reltol )
41 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")
42 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )
43 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")
44 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
45 call disp%skip()
46 end block
47
48 block
49 use pm_kind, only: TKC => CKD
50 real(TKC) :: reltol
51 complex(TKC), allocatable :: data(:), atad(:)
52 call disp%show("lenData = getUnifRand(5, 100)")
53 lenData = getUnifRand(5, 100)
54 call disp%show("lenData")
55 call disp%show( lenData )
56 call disp%show("data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)")
57 data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
58 call disp%show("data")
59 call disp%show( data )
60 call disp%skip()
61 call disp%show("atad = getFFTR(getFFTF(data))")
62 atad = getFFTR(getFFTF(data))
63 call disp%show("atad = atad / size(atad)")
64 atad = atad / size(atad)
65 call disp%show("atad")
66 call disp%show( atad )
67 call disp%show("reltol = sqrt(epsilon(1._TKC))")
68 reltol = sqrt(epsilon(1._TKC))
69 call disp%show("reltol")
70 call disp%show( reltol )
71 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")
72 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )
73 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")
74 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
75 call disp%skip()
76 end block
77
78 block
79 use pm_kind, only: TKC => CKH
80 real(TKC) :: reltol
81 complex(TKC), allocatable :: data(:), atad(:)
82 call disp%show("lenData = getUnifRand(5, 100)")
83 lenData = getUnifRand(5, 100)
84 call disp%show("lenData")
85 call disp%show( lenData )
86 call disp%show("data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)")
87 data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
88 call disp%show("data")
89 call disp%show( data )
90 call disp%skip()
91 call disp%show("atad = getFFTR(getFFTF(data))")
92 atad = getFFTR(getFFTF(data))
93 call disp%show("atad = atad / size(atad)")
94 atad = atad / size(atad)
95 call disp%show("atad")
96 call disp%show( atad )
97 call disp%show("reltol = sqrt(epsilon(1._TKC))")
98 reltol = sqrt(epsilon(1._TKC))
99 call disp%show("reltol")
100 call disp%show( reltol )
101 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")
102 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )
103 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")
104 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
105 call disp%skip()
106 end block
107
108 block
109 use pm_kind, only: TKC => RKS
110 real(TKC) :: reltol
111 real(TKC), allocatable :: data(:), atad(:)
112 call disp%show("lenData = getUnifRand(5, 100)")
113 lenData = getUnifRand(5, 100)
114 call disp%show("lenData")
115 call disp%show( lenData )
116 call disp%show("data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)")
117 data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
118 call disp%show("data")
119 call disp%show( data )
120 call disp%skip()
121 call disp%show("atad = getFFTR(getFFTF(data))")
122 atad = getFFTR(getFFTF(data))
123 call disp%show("atad = atad * 2 / size(atad)")
124 atad = atad * 2 / size(atad)
125 call disp%show("atad")
126 call disp%show( atad )
127 call disp%show("reltol = sqrt(epsilon(1._TKC))")
128 reltol = sqrt(epsilon(1._TKC))
129 call disp%show("reltol")
130 call disp%show( reltol )
131 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")
132 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )
133 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")
134 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
135 call disp%skip()
136 end block
137
138 block
139 use pm_kind, only: TKC => RKD
140 real(TKC) :: reltol
141 real(TKC), allocatable :: data(:), atad(:)
142 call disp%show("lenData = getUnifRand(5, 100)")
143 lenData = getUnifRand(5, 100)
144 call disp%show("lenData")
145 call disp%show( lenData )
146 call disp%show("data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)")
147 data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
148 call disp%show("data")
149 call disp%show( data )
150 call disp%skip()
151 call disp%show("atad = getFFTR(getFFTF(data))")
152 atad = getFFTR(getFFTF(data))
153 call disp%show("atad = atad * 2 / size(atad)")
154 atad = atad * 2 / size(atad)
155 call disp%show("atad")
156 call disp%show( atad )
157 call disp%show("reltol = sqrt(epsilon(1._TKC))")
158 reltol = sqrt(epsilon(1._TKC))
159 call disp%show("reltol")
160 call disp%show( reltol )
161 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")
162 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )
163 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")
164 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
165 call disp%skip()
166 end block
167
168 block
169 use pm_kind, only: TKC => RKH
170 real(TKC) :: reltol
171 real(TKC), allocatable :: data(:), atad(:)
172 call disp%show("lenData = getUnifRand(5, 100)")
173 lenData = getUnifRand(5, 100)
174 call disp%show("lenData")
175 call disp%show( lenData )
176 call disp%show("data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)")
177 data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
178 call disp%show("data")
179 call disp%show( data )
180 call disp%skip()
181 call disp%show("atad = getFFTR(getFFTF(data))")
182 atad = getFFTR(getFFTF(data))
183 call disp%show("atad = atad * 2 / size(atad)")
184 atad = atad * 2 / size(atad)
185 call disp%show("atad")
186 call disp%show( atad )
187 call disp%show("reltol = sqrt(epsilon(1._TKC))")
188 reltol = sqrt(epsilon(1._TKC))
189 call disp%show("reltol")
190 call disp%show( reltol )
191 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")
192 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )
193 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")
194 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
195 call disp%skip()
196 end block
197 end do
198
199end program example
pm_distUnif::getUnifRand
Generate and return a scalar or a contiguous array of rank 1 of length s1 of randomly uniformly distr...
Definition: pm_distUnif.F90:4150
pm_err::setAsserted
Verify the input assertion holds and if it does not, print the (optional) input message on stdout and...
Definition: pm_err.F90:735
pm_err::show
Generate and return an object of type stop_type with the user-specified input attributes.
Definition: pm_err.F90:1618
pm_fftnr::getFFTF
Generate and return the Forward Fourier Transform (a.k.a. Fourier Analysis) of a periodic sequence of...
Definition: pm_fftnr.F90:250
pm_io::skip
This is a generic method of the derived type display_type with pass attribute.
Definition: pm_io.F90:11508
pm_mathCompare::isClose
Generate and return .true. if the two input values are sufficiently close to each other within the sp...
Definition: pm_mathCompare.F90:535
pm_distUnif
This module contains classes and procedures for computing various statistical quantities related to t...
Definition: pm_distUnif.F90:274
pm_err
This module contains classes and procedures for reporting and handling errors.
Definition: pm_err.F90:52
pm_io
This module contains classes and procedures for input/output (IO) or generic display operations on st...
Definition: pm_io.F90:252
pm_io::disp
type(display_type) disp
This is a scalar module variable an object of type display_type for general display.
Definition: pm_io.F90:11393
pm_kind
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
Definition: pm_kind.F90:268
pm_kind::LK
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
Definition: pm_kind.F90:541
pm_kind::CKH
integer, parameter CKH
The scalar integer constant of intrinsic default kind, representing the highest-precision complex kin...
Definition: pm_kind.F90:843
pm_kind::CKS
integer, parameter CKS
The single-precision complex kind in Fortran mode. On most platforms, this is a 32-bit real kind.
Definition: pm_kind.F90:570
pm_kind::IK
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
Definition: pm_kind.F90:540
pm_kind::CKD
integer, parameter CKD
The double precision complex kind in Fortran mode. On most platforms, this is a 64-bit real kind.
Definition: pm_kind.F90:571
pm_kind::RKD
integer, parameter RKD
The double precision real kind in Fortran mode. On most platforms, this is an 64-bit real kind.
Definition: pm_kind.F90:568
pm_kind::SK
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...
Definition: pm_kind.F90:539
pm_kind::RKH
integer, parameter RKH
The scalar integer constant of intrinsic default kind, representing the highest-precision real kind t...
Definition: pm_kind.F90:858
pm_kind::RKS
integer, parameter RKS
The single-precision real kind in Fortran mode. On most platforms, this is an 32-bit real kind.
Definition: pm_kind.F90:567
pm_mathCompare
This module contains the procedures and interfaces for evaluating the relative or absolute proximity ...
Definition: pm_mathCompare.F90:205
pm_io::display_type
Generate and return an object of type display_type.
Definition: pm_io.F90:10282

Example Unix compile command via Intel ifort compiler ⛓
1#!/usr/bin/env sh
2rm main.exe
3ifort -fpp -standard-semantics -O3 -Wl,-rpath,../../../lib -I../../../inc main.F90 ../../../lib/libparamonte* -o main.exe
4./main.exe

Example Windows Batch compile command via Intel ifort compiler ⛓
1del main.exe
2set PATH=..\..\..\lib;%PATH%
3ifort /fpp /standard-semantics /O3 /I:..\..\..\include main.F90 ..\..\..\lib\libparamonte*.lib /exe:main.exe
4main.exe

Example Unix / MinGW compile command via GNU gfortran compiler ⛓
1#!/usr/bin/env sh
2rm main.exe
3gfortran -cpp -ffree-line-length-none -O3 -Wl,-rpath,../../../lib -I../../../inc main.F90 ../../../lib/libparamonte* -o main.exe
4./main.exe

Example output ⛓
1lenData = getUnifRand(5, 100)
2lenData
3+35
4data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
5data
6(+1.62739110, +0.949774921), (+1.74923766, +0.698972762), (+1.18992114, +0.617376745), (+1.91457677, +0.808371127), (+1.35725594, +0.701333463), (+1.92500472, +0.227266490), (+1.11830091, +0.848411560), (+1.39950752, +0.385167897), (+1.10763443, +0.693993747), (+1.88909030, +0.642347872), (+1.01335919, +0.470190048), (+1.61211991, +0.344423056), (+1.06011415, +0.959640443), (+1.46869302, +0.603454471), (+1.54737961, +0.150359571), (+1.41696286, +0.658385873), (+1.63625205, +0.620668530), (+1.84602284, +0.621213675), (+1.89934039, +0.732216597), (+1.13782632, +0.937530756), (+1.70695019, +0.167147815), (+1.26563120, +0.158721447), (+1.36495054, +0.531208396), (+1.70545530, +0.438334167), (+1.17704642, +0.995960891), (+1.58725500, +0.281404734), (+1.81717372, +0.976232886), (+1.81907344, +0.893441021), (+1.73145533, +0.336173475), (+1.88847125, +0.770142376), (+1.95434332, +0.571986496), (+1.91291487, +0.903654933), (+1.98980522, +0.463208973), (+1.86290777, +0.872604370), (+1.62631512, +0.510351837)
7
8atad = getFFTR(getFFTF(data))
9atad = atad / size(atad)
10atad
11(+1.62739098, +0.949774921), (+1.74923742, +0.698972762), (+1.18992090, +0.617376566), (+1.91457629, +0.808370829), (+1.35725594, +0.701333404), (+1.92500460, +0.227266580), (+1.11830091, +0.848411322), (+1.39950728, +0.385167629), (+1.10763431, +0.693993807), (+1.88909006, +0.642347813), (+1.01335907, +0.470190078), (+1.61211967, +0.344422996), (+1.06011403, +0.959640622), (+1.46869302, +0.603454709), (+1.54737926, +0.150359660), (+1.41696286, +0.658385694), (+1.63625193, +0.620668411), (+1.84602261, +0.621213555), (+1.89934015, +0.732216299), (+1.13782632, +0.937530458), (+1.70695019, +0.167147815), (+1.26563108, +0.158721536), (+1.36495042, +0.531208277), (+1.70545506, +0.438334048), (+1.17704630, +0.995960832), (+1.58725476, +0.281404763), (+1.81717336, +0.976232827), (+1.81907320, +0.893440843), (+1.73145533, +0.336173624), (+1.88847065, +0.770142436), (+1.95434284, +0.571986616), (+1.91291463, +0.903654873), (+1.98980510, +0.463208973), (+1.86290777, +0.872604072), (+1.62631512, +0.510351777), (+0.298023224E-6, +0.149011612E-6), (-0.596046448E-7, +0.298023224E-7), (+0.119209290E-6, -0.156462193E-6), (+0.119209290E-6, +0.208616257E-6), (+0.596046448E-7, +0.268220901E-6), (+0.596046448E-7, +0.894069672E-7), (+0.178813934E-6, -0.894069672E-7), (+0.178813934E-6, +0.894069672E-7), (-0.596046448E-7, -0.298023224E-7), (+0.119209290E-6, -0.238418579E-6), (+0.596046448E-7, -0.238418579E-6), (+0.596046448E-7, -0.119209290E-6), (+0.596046448E-7, +0.00000000), (-0.596046448E-7, +0.298023224E-7), (+0.178813934E-6, +0.119209290E-6), (+0.00000000, +0.178813934E-6), (+0.00000000, +0.178813934E-6), (+0.596046448E-7, +0.00000000), (+0.119209290E-6, -0.968575478E-7), (+0.596046448E-7, +0.119209290E-6), (+0.178813934E-6, +0.596046448E-7), (+0.178813934E-6, +0.894069672E-7), (+0.178813934E-6, -0.298023224E-7), (+0.119209290E-6, +0.596046448E-7), (+0.596046448E-7, -0.298023224E-7), (+0.298023224E-6, -0.596046448E-7), (+0.417232513E-6, +0.00000000), (+0.596046448E-7, -0.178813934E-6), (+0.119209290E-6, +0.00000000)
12reltol = sqrt(epsilon(1._TKC))
13reltol
14+0.345266977E-3
15isClose(data, atad(1:size(data)), reltol = reltol)
16T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
17call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
18
19lenData = getUnifRand(5, 100)
20lenData
21+57
22data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
23data
24(+1.8770531842219969, +0.19017678094799551), (+1.0571803886719238, +0.65454661945861836), (+1.2669659353032880, +0.37762008441232320), (+1.3073690520057037, +0.21799885519470297), (+1.3595411438096701, +0.68390822947801067), (+1.4767336950482441, +0.47901104979013343), (+1.2300053135355289, +0.23461920042572737), (+1.0597106837891312, +0.55892711396101613), (+1.4321643938972999, +0.96019464542004496), (+1.4422833434814062, +0.67023699388717606), (+1.3714804966902387, +0.95950411529514468), (+1.8354793291791722, +0.68803202671013708), (+1.5243174185539985, +0.76095865878942326), (+1.9695709934271921, +0.73682687088472842), (+1.7092231237319067, +0.40133766038892738), (+1.5076724816913842, +0.86440754896641037), (+1.9972892459097160, +0.71902987038206700), (+1.8990051303574671, +0.49385520392751692), (+1.5393042693836385, +0.37709418308597975), (+1.2339640695612561, +0.12865420530538640), (+1.2749950668248888, +0.23498856985518313), (+1.8061286639696381, +0.72402930938700139), (+1.5828160519259877, +0.15305356869557063), (+1.9012268302627500, +0.75836112749478257), (+1.6854419278499650, +0.16349903702374269), (+1.4415497813000036, +0.88420181607123471), (+1.9005477481107591, +0.60887081056078296), (+1.9424248568324192, +0.64051023186297729), (+1.5010891915669089, +0.43955043667678728), (+1.2545320754745775, +0.60152043271578104), (+1.1211279101753848, +0.15020772539835847), (+1.8321125900985251, +0.76982055018317441), (+1.9753604974959407, +0.60493152026956476), (+1.0236948952833347, +0.15686294315458760), (+1.3227879838113692, +0.50553901421699254), (+1.2753493308553243, +0.71731455844898229), (+1.3499082139124170, +0.31137780987355634), (+1.7930395644405996, +0.76424939525571411), (+1.6186229666094838, +0.43599013352537008), (+1.2869274581965477, +0.43075293798163616), (+1.4252062855814511, +0.99622730408615001), (+1.1509359695626380, +0.20266554493083277), (+1.5091848935660215, +0.59685797363036841), (+1.7730851369266556, +0.16429247117107804), (+1.7975301915581192, +0.82162690299142627), (+1.2309092054805384, +0.39826761984703163), (+1.0789680950193130, +0.59880382729531945), (+1.1278761389838565, +0.29858699844538250), (+1.4551335641069318, +0.68037287176074990), (+1.7017710239958261, +0.27999078894265039), (+1.6526364960313042, +0.55275191313971861), (+1.9143737340081124, +0.70760046058612913), (+1.7870883332471932, +0.32457855497237975), (+1.6396643279528487, +0.10561105950769234), (+1.2608269198556661, +0.80205572477135567), (+1.6856249844118578, +0.99126900203682866E-1), (+1.1220894616241845, +0.34391685151130102)
25
26atad = getFFTR(getFFTF(data))
27atad = atad / size(atad)
28atad
29(+1.8770531842219969, +0.19017678094799548), (+1.0571803886719238, +0.65454661945861847), (+1.2669659353032880, +0.37762008441232336), (+1.3073690520057037, +0.21799885519470322), (+1.3595411438096705, +0.68390822947801055), (+1.4767336950482437, +0.47901104979013331), (+1.2300053135355287, +0.23461920042572743), (+1.0597106837891310, +0.55892711396101624), (+1.4321643938972997, +0.96019464542004485), (+1.4422833434814060, +0.67023699388717628), (+1.3714804966902383, +0.95950411529514490), (+1.8354793291791720, +0.68803202671013730), (+1.5243174185539983, +0.76095865878942348), (+1.9695709934271914, +0.73682687088472865), (+1.7092231237319062, +0.40133766038892782), (+1.5076724816913840, +0.86440754896641048), (+1.9972892459097160, +0.71902987038206689), (+1.8990051303574673, +0.49385520392751681), (+1.5393042693836385, +0.37709418308597975), (+1.2339640695612559, +0.12865420530538668), (+1.2749950668248891, +0.23498856985518302), (+1.8061286639696383, +0.72402930938700161), (+1.5828160519259875, +0.15305356869557080), (+1.9012268302627497, +0.75836112749478279), (+1.6854419278499648, +0.16349903702374280), (+1.4415497813000033, +0.88420181607123438), (+1.9005477481107591, +0.60887081056078274), (+1.9424248568324189, +0.64051023186297695), (+1.5010891915669091, +0.43955043667678734), (+1.2545320754745775, +0.60152043271578082), (+1.1211279101753850, +0.15020772539835839), (+1.8321125900985247, +0.76982055018317397), (+1.9753604974959407, +0.60493152026956465), (+1.0236948952833345, +0.15686294315458754), (+1.3227879838113692, +0.50553901421699243), (+1.2753493308553243, +0.71731455844898218), (+1.3499082139124172, +0.31137780987355623), (+1.7930395644405994, +0.76424939525571423), (+1.6186229666094836, +0.43599013352537014), (+1.2869274581965473, +0.43075293798163605), (+1.4252062855814509, +0.99622730408614990), (+1.1509359695626380, +0.20266554493083247), (+1.5091848935660215, +0.59685797363036786), (+1.7730851369266556, +0.16429247117107793), (+1.7975301915581190, +0.82162690299142604), (+1.2309092054805377, +0.39826761984703152), (+1.0789680950193130, +0.59880382729531934), (+1.1278761389838561, +0.29858699844538239), (+1.4551335641069318, +0.68037287176074990), (+1.7017710239958261, +0.27999078894265039), (+1.6526364960313042, +0.55275191313971850), (+1.9143737340081122, +0.70760046058612902), (+1.7870883332471934, +0.32457855497237986), (+1.6396643279528484, +0.10561105950769217), (+1.2608269198556663, +0.80205572477135556), (+1.6856249844118578, +0.99126900203682533E-1), (+1.1220894616241845, +0.34391685151130125), (-0.22204460492503131E-15, -0.16653345369377348E-15), (+0.44408920985006262E-15, +0.49960036108132044E-15), (+0.66613381477509392E-15, +0.55511151231257827E-16), (+0.44408920985006262E-15, +0.16653345369377348E-15), (+0.22204460492503131E-15, -0.55511151231257827E-16), (+0.44408920985006262E-15, +0.74940054162198066E-15), (+0.22204460492503131E-15, +0.55511151231257827E-15)
30reltol = sqrt(epsilon(1._TKC))
31reltol
32+0.14901161193847656E-7
33isClose(data, atad(1:size(data)), reltol = reltol)
34T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
35call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
36
37lenData = getUnifRand(5, 100)
38lenData
39+93
40data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
41data
42(+1.98135319724195590534348700173848648, +0.182027116263009685032096235131406867), (+1.96979859116908007015216446848007177, +0.319682199798034316915512329410037219), (+1.70689970781498402891572507584520775, +0.116394394769256292871297452683294840E-1), (+1.24712368756861014725216374256552956, +0.654617500516914641806589353604721163), (+1.82962113293011934359411929664777009, +0.474081891639915514980854189753035166), (+1.87935010375019907722532965256123438, +0.103056983587858024199047590101194175), (+1.69998987831575687925660922922616737, +0.352270408217414422363946273160658117), (+1.04534558169281701732718529870225212, +0.173948981761831757534309446481756701), (+1.41385654495902833757856061855138676, +0.143000292495460992271418940854268964E-2), (+1.71711913611039818688809890704458923, +0.141600933681647521999842858500108694), (+1.87254616057075392507087248719925445, +0.874243421609375325260299372344838925), (+1.21115821478966189582358735606182408, +0.353366511560503333964558456345194917E-2), (+1.01154202577393159426501860933873308, +0.988483734796292147103454762999323267), (+1.20510648773627075848900310128086697, +0.925312540525089184701034585236657255), (+1.44343115859032835556150248150056092, +0.207617931276009211276295047702150800), (+1.59503896333318851352869999247254685, +0.939912265392603190167996798974457189E-1), (+1.53559814666081497128056916479179398, +0.767389231934880041466988375702706642), (+1.40379356576933698457370305474213029, +0.807546682533146172376686658075007600), (+1.47299821076283749928777976934133731, +0.587498679096917926216797752324574417), (+1.29524711461420929317831224042695359, +0.724924299415426347042461011877649908E-1), (+1.48723390520377931303528696357233950, +0.443014483890932997580421247906904297E-1), (+1.17724684296890385882022033715827105, +0.671551021936295397980265544436346674), (+1.20692514701887540144136153966302878, +0.395247363600410491365404309030386525), (+1.85109781558385068443174896750958093, +0.751120350698175718074156288763554430), (+1.91363914188744130608531506807271687, +0.620128431385327485988530992259154230), (+1.75457985871834707158418555857128712, +0.648156578372662374778929508986701363), (+1.17233134156742450520947607457860107, +0.338247035690528340596856867480604159), (+1.44003488224843617386355384658713254, +0.600327698062676542993705979788910341), (+1.29006717137929799543602644697670906, +0.274113700991767612364126054691391218), (+1.14340437079279860721032603332551223, +0.709902745953294401121773220355868653), (+1.74107996236802215327806061674252481, +0.573974968711020582864586518744369984), (+1.89155613475485420287565197682166362, +0.995015676813138782502038613655828126E-1), (+1.82174522565532431732203936582039708, +0.319552767055887777503984168748519482E-2), (+1.83431488894310550999736287705491329, +0.121306399485568940213901681905162901), (+1.19479831828003064486742880962916152, +0.693932176531869119411029027854019296), (+1.01854236906244484168879517408604354, +0.643261201003777948437154221611306795), (+1.70613718081740481066367471040578884, +0.435060830741711943955896518964104700), (+1.51067732865698758408933978041072077, +0.882177533219053412973039620482266666), (+1.38688726613554241197449916367709887, +0.758067438144298448519788129980039576), (+1.35447457154219555456084964594323550, +0.861800137829591455476386823434044565), (+1.64578406624116773803970604780383838, +0.335888583993306281883293148734998440), (+1.57775017580116110389831158248359331, +0.341284638027688195920578744586777885), (+1.86239611796024018872629775235450560, +0.936185090572705860798480152620230080), (+1.56616227176547294981424801570973408, +0.194239371627237998846716910230138721), (+1.27374076919861774136036877957987687, +0.283848680364351779765362609868635088), (+1.44664163544417285317304676008514903, +0.601422878926713226330508490815321254), (+1.86227287654300610434158516460399725, +0.846910033228315726378564446435854829), (+1.90127367977684862440631102774580349, +0.734654619722607386754453700117173972), (+1.45036288368686038216634462945944912, +0.989408720621197661497391442144055440), (+1.79900456952554618288703994001549593, +0.883796008887223772610469738746354927), (+1.08638801683995062668019083125693011, +0.427799561686411448174793996947760263), (+1.37361211907575598923017766241783023, +0.260391456934750906141725977181145119), (+1.97313984963519308458919120393078716, +0.583064243682650377666283305266050709), (+1.66706139683233136204907590457850108, +0.348538112621602684444936620724013006), (+1.10567404783728276357368974765837731, +0.296109836781094927292601818055659440), (+1.78892180417324716115912282430374873, +0.414797203168727068661819164524458713), (+1.01396783288045360994470483498483590, +0.989371396525245687421316710859637808), (+1.53720889083417925571166891298620186, +0.578721257504299356001640141962206544), (+1.76966284294331780051123436921280551, +0.112071980061458547548321070279798547), (+1.33452394032926868042771977557387362, +0.313616472978888003937099898665483946), (+1.38731108082548815306540942699924242, +0.808512932286505087574968905820643108), (+1.76499319862762517706733538647774693, +0.554707808617924210883166874933744543), (+1.06152979690060254248203870061140933, +0.735460846919864979166388904212864149), (+1.42778715349150477459719240950904850, +0.307310212928570649564897808955823122), (+1.97575819738582319980996911129290445, +0.750615012650194894085151783584684292), (+1.43757006294520885111232913125616829, +0.172437447773268089814304436217276054), (+1.88100209252922838748698194584458667, +0.579665634137762094007134562669184303), (+1.68764158426466520447624277253119295, +0.837418603244143152845642474426875434), (+1.64922382290670853454677690760418088, +0.244832003784359070986338210675479059), (+1.17186988347520237763734279115633169, +0.331699692879446658024747032510434655), (+1.21557542393851890724594324841415450, +0.703733341968658482791885624904293587), (+1.79530530868764732617824535662563662, +0.353778515942319910637328145623389624), (+1.95006313540984059098067701034218870, +0.274973709557645607519185048187470751), (+1.95808736681867904187656639342618043, +0.377189542136548783588609103060298582), (+1.37152015467427670634176191903198052, +0.988482969894074415502434526183224705E-1), (+1.52483505858878194263849230990082314, +0.133949641037103756294560219546760593), (+1.07199915640198065283424780344750417, +0.226299632348788072052597145882427609), (+1.35487747409731527738660425735097886, +0.683886764048846471489802242668420437), (+1.59344238061353086643036897113103616, +0.754392389062924118458332380997943865), (+1.20571560842739897319608158266232749, +0.614444321508279237050364239586028955), (+1.87842879453358662522496840417971082, +0.257108688380522340953024518871831324), (+1.70735635904663152185853288348944559, +0.434803935814649374254553439616991019), (+1.77137597947026419956900618441917358, +0.822672704437476104120501042077828719), (+1.14270233421066151020138963650549961, +0.278846078001339863200248144489659192), (+1.03095787469053529271165660905233017, +0.666661155852135908546926465619931427), (+1.28695216787379784862208712773560674, +0.730369944687057008340396398838192117), (+1.90040000851591141461904922672373391, +0.643389476070273945011775884941947275), (+1.58332553628763812766661593127391344, +0.668544587772574383036290203735388965), (+1.37614647873897748619884041680414568, +0.517535254345240108270177408380809150), (+1.82989133700107479673711528312580384, +0.953669211960372005245501697155721301), (+1.41177863497313496890588011010602438, +0.678662798683488321340415609879731222), (+1.63405889525964350905778934945117188, +0.989351823061557869271628499359384947E-1), (+1.06706422751501151762522706652984124, +0.637072365257968843631807413224498526)
43
44atad = getFFTR(getFFTF(data))
45atad = atad / size(atad)
46atad
47(+1.98135319724195590534348700173848609, +0.182027116263009685032096235131406722), (+1.96979859116908007015216446848007158, +0.319682199798034316915512329410036978), (+1.70689970781498402891572507584520775, +0.116394394769256292871297452683295803E-1), (+1.24712368756861014725216374256552937, +0.654617500516914641806589353604721259), (+1.82962113293011934359411929664776990, +0.474081891639915514980854189753035022), (+1.87935010375019907722532965256123419, +0.103056983587858024199047590101193597), (+1.69998987831575687925660922922616698, +0.352270408217414422363946273160657828), (+1.04534558169281701732718529870225174, +0.173948981761831757534309446481756533), (+1.41385654495902833757856061855138696, +0.143000292495460992271418940854254520E-2), (+1.71711913611039818688809890704458962, +0.141600933681647521999842858500108381), (+1.87254616057075392507087248719925522, +0.874243421609375325260299372344839310), (+1.21115821478966189582358735606182408, +0.353366511560503333964558456345178065E-2), (+1.01154202577393159426501860933873308, +0.988483734796292147103454762999323363), (+1.20510648773627075848900310128086697, +0.925312540525089184701034585236657062), (+1.44343115859032835556150248150056092, +0.207617931276009211276295047702150752), (+1.59503896333318851352869999247254647, +0.939912265392603190167996798974453337E-1), (+1.53559814666081497128056916479179379, +0.767389231934880041466988375702706642), (+1.40379356576933698457370305474212991, +0.807546682533146172376686658075007600), (+1.47299821076283749928777976934133712, +0.587498679096917926216797752324574513), (+1.29524711461420929317831224042695320, +0.724924299415426347042461011877649668E-1), (+1.48723390520377931303528696357233931, +0.443014483890932997580421247906903334E-1), (+1.17724684296890385882022033715827085, +0.671551021936295397980265544436346577), (+1.20692514701887540144136153966302878, +0.395247363600410491365404309030386429), (+1.85109781558385068443174896750958093, +0.751120350698175718074156288763554142), (+1.91363914188744130608531506807271668, +0.620128431385327485988530992259154326), (+1.75457985871834707158418555857128712, +0.648156578372662374778929508986701363), (+1.17233134156742450520947607457860127, +0.338247035690528340596856867480604063), (+1.44003488224843617386355384658713254, +0.600327698062676542993705979788910438), (+1.29006717137929799543602644697670887, +0.274113700991767612364126054691391074), (+1.14340437079279860721032603332551223, +0.709902745953294401121773220355868846), (+1.74107996236802215327806061674252539, +0.573974968711020582864586518744370176), (+1.89155613475485420287565197682166362, +0.995015676813138782502038613655827163E-1), (+1.82174522565532431732203936582039708, +0.319552767055887777503984168748528171E-2), (+1.83431488894310550999736287705491329, +0.121306399485568940213901681905162853), (+1.19479831828003064486742880962916171, +0.693932176531869119411029027854019585), (+1.01854236906244484168879517408604335, +0.643261201003777948437154221611306987), (+1.70613718081740481066367471040578865, +0.435060830741711943955896518964104796), (+1.51067732865698758408933978041072116, +0.882177533219053412973039620482266666), (+1.38688726613554241197449916367709887, +0.758067438144298448519788129980039769), (+1.35447457154219555456084964594323531, +0.861800137829591455476386823434044565), (+1.64578406624116773803970604780383819, +0.335888583993306281883293148734998536), (+1.57775017580116110389831158248359350, +0.341284638027688195920578744586778078), (+1.86239611796024018872629775235450617, +0.936185090572705860798480152620230466), (+1.56616227176547294981424801570973408, +0.194239371627237998846716910230138817), (+1.27374076919861774136036877957987706, +0.283848680364351779765362609868635328), (+1.44664163544417285317304676008514961, +0.601422878926713226330508490815321254), (+1.86227287654300610434158516460399764, +0.846910033228315726378564446435855214), (+1.90127367977684862440631102774580369, +0.734654619722607386754453700117174069), (+1.45036288368686038216634462945944912, +0.989408720621197661497391442144055729), (+1.79900456952554618288703994001549574, +0.883796008887223772610469738746354831), (+1.08638801683995062668019083125693049, +0.427799561686411448174793996947760503), (+1.37361211907575598923017766241783023, +0.260391456934750906141725977181145023), (+1.97313984963519308458919120393078716, +0.583064243682650377666283305266050805), (+1.66706139683233136204907590457850127, +0.348538112621602684444936620724012717), (+1.10567404783728276357368974765837751, +0.296109836781094927292601818055659440), (+1.78892180417324716115912282430374912, +0.414797203168727068661819164524458617), (+1.01396783288045360994470483498483551, +0.989371396525245687421316710859638096), (+1.53720889083417925571166891298620205, +0.578721257504299356001640141962206448), (+1.76966284294331780051123436921280589, +0.112071980061458547548321070279798427), (+1.33452394032926868042771977557387362, +0.313616472978888003937099898665484043), (+1.38731108082548815306540942699924242, +0.808512932286505087574968905820643493), (+1.76499319862762517706733538647774751, +0.554707808617924210883166874933744735), (+1.06152979690060254248203870061140952, +0.735460846919864979166388904212864535), (+1.42778715349150477459719240950904850, +0.307310212928570649564897808955823170), (+1.97575819738582319980996911129290387, +0.750615012650194894085151783584684388), (+1.43757006294520885111232913125616810, +0.172437447773268089814304436217275765), (+1.88100209252922838748698194584458706, +0.579665634137762094007134562669184303), (+1.68764158426466520447624277253119295, +0.837418603244143152845642474426875530), (+1.64922382290670853454677690760418069, +0.244832003784359070986338210675479011), (+1.17186988347520237763734279115633188, +0.331699692879446658024747032510434751), (+1.21557542393851890724594324841415450, +0.703733341968658482791885624904293587), (+1.79530530868764732617824535662563662, +0.353778515942319910637328145623389528), (+1.95006313540984059098067701034218851, +0.274973709557645607519185048187470991), (+1.95808736681867904187656639342618081, +0.377189542136548783588609103060298678), (+1.37152015467427670634176191903198090, +0.988482969894074415502434526183224224E-1), (+1.52483505858878194263849230990082333, +0.133949641037103756294560219546760666), (+1.07199915640198065283424780344750417, +0.226299632348788072052597145882427513), (+1.35487747409731527738660425735097886, +0.683886764048846471489802242668420533), (+1.59344238061353086643036897113103616, +0.754392389062924118458332380997943961), (+1.20571560842739897319608158266232730, +0.614444321508279237050364239586029340), (+1.87842879453358662522496840417971082, +0.257108688380522340953024518871831179), (+1.70735635904663152185853288348944559, +0.434803935814649374254553439616991019), (+1.77137597947026419956900618441917358, +0.822672704437476104120501042077828719), (+1.14270233421066151020138963650549961, +0.278846078001339863200248144489659288), (+1.03095787469053529271165660905232998, +0.666661155852135908546926465619931620), (+1.28695216787379784862208712773560674, +0.730369944687057008340396398838192405), (+1.90040000851591141461904922672373429, +0.643389476070273945011775884941947179), (+1.58332553628763812766661593127391363, +0.668544587772574383036290203735389254), (+1.37614647873897748619884041680414510, +0.517535254345240108270177408380809150), (+1.82989133700107479673711528312580384, +0.953669211960372005245501697155721590), (+1.41177863497313496890588011010602477, +0.678662798683488321340415609879731222), (+1.63405889525964350905778934945117208, +0.989351823061557869271628499359387354E-1), (+1.06706422751501151762522706652984105, +0.637072365257968843631807413224498815), (-0.962964972193617926527988971292463659E-34, +0.144444745829042688979198345693869549E-33), (-0.385185988877447170611195588516985464E-33, -0.192592994438723585305597794258492732E-33), (-0.866668474974256133875190074163217293E-33, +0.842594350669415685711990349880905702E-34), (-0.577778983316170755916793382775478196E-33, -0.387442938031025962626495562668452175E-34), (-0.674075480535532548569592279904724561E-33, +0.186574463362513473264797863187914834E-33), (+0.00000000000000000000000000000000000, -0.337037740267766274284796139952362281E-33), (-0.385185988877447170611195588516985464E-33, +0.144444745829042688979198345693869549E-33), (-0.192592994438723585305597794258492732E-33, +0.240741243048404481631997242823115915E-34), (-0.288889491658085377958396691387739098E-33, +0.144444745829042688979198345693869549E-33), (-0.481482486096808963263994485646231830E-33, -0.192592994438723585305597794258492732E-33), (-0.481482486096808963263994485646231830E-33, +0.481482486096808963263994485646231830E-34), (-0.577778983316170755916793382775478196E-33, -0.385185988877447170611195588516985464E-33), (-0.577778983316170755916793382775478196E-33, -0.385185988877447170611195588516985464E-33), (+0.192592994438723585305597794258492732E-33, -0.625927231925851652243192831340101379E-33), (-0.577778983316170755916793382775478196E-33, -0.192592994438723585305597794258492732E-33), (-0.385185988877447170611195588516985464E-33, +0.481482486096808963263994485646231830E-34), (-0.577778983316170755916793382775478196E-33, -0.962964972193617926527988971292463659E-34), (-0.385185988877447170611195588516985464E-33, -0.240741243048404481631997242823115915E-33), (-0.866668474974256133875190074163217293E-33, -0.144444745829042688979198345693869549E-33), (-0.288889491658085377958396691387739098E-33, -0.144444745829042688979198345693869549E-33), (-0.674075480535532548569592279904724561E-33, -0.962964972193617926527988971292463659E-34), (-0.385185988877447170611195588516985464E-33, -0.240741243048404481631997242823115915E-33), (-0.481482486096808963263994485646231830E-33, +0.722223729145213444895991728469347744E-34), (-0.385185988877447170611195588516985464E-33, +0.00000000000000000000000000000000000), (-0.962964972193617926527988971292463659E-33, -0.216667118743564033468797518540804323E-33), (-0.385185988877447170611195588516985464E-33, +0.00000000000000000000000000000000000), (-0.962964972193617926527988971292463659E-33, -0.962964972193617926527988971292463659E-34), (-0.674075480535532548569592279904724561E-33, -0.481482486096808963263994485646231830E-33), (-0.385185988877447170611195588516985464E-33, -0.529630734706489859590393934210855013E-33), (-0.962964972193617926527988971292463659E-34, -0.312963615962925826121596415670050689E-33), (-0.674075480535532548569592279904724561E-33, -0.457408361791968515100794761363920238E-33), (-0.481482486096808963263994485646231830E-33, -0.240741243048404481631997242823115915E-33), (-0.385185988877447170611195588516985464E-33, -0.385185988877447170611195588516985464E-33), (-0.288889491658085377958396691387739098E-33, -0.674075480535532548569592279904724561E-33), (-0.866668474974256133875190074163217293E-33, -0.337037740267766274284796139952362281E-33)
48reltol = sqrt(epsilon(1._TKC))
49reltol
50+0.138777878078144567552953958511352539E-16
51isClose(data, atad(1:size(data)), reltol = reltol)
52T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
53call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
54
55lenData = getUnifRand(5, 100)
56lenData
57+68
58data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
59data
60+1.65693736, +1.34460211, +1.02282572, +1.46922255, +1.33458161, +1.31054246, +1.67605424, +1.77785969, +1.86392808, +1.49799800, +1.19019783, +1.02095592, +1.63730097, +1.68822312, +1.96680617, +1.66980195, +1.69085348, +1.22546339, +1.21140015, +1.19655049, +1.90225446, +1.45578599, +1.57954001, +1.32890153, +1.85398722, +1.90000319, +1.88212466, +1.96329761, +1.27312589, +1.59904075, +1.72281098, +1.88081527, +1.66632295, +1.29930186, +1.93487620, +1.00375462, +1.85128033, +1.73528981, +1.43443894, +1.46498179, +1.16956043, +1.47865367, +1.77003562, +1.74960637, +1.90837169, +1.58405781, +1.23460340, +1.30786192, +1.09965372, +1.09346497, +1.39335108, +1.37882304, +1.59371877, +1.89334106, +1.02861643, +1.48797297, +1.81471992, +1.98061585, +1.54785585, +1.48539138, +1.97435045, +1.95061445, +1.61394525, +1.47389984, +1.35714877, +1.57138443, +1.22303271, +1.08056176
61
62atad = getFFTR(getFFTF(data))
63atad = atad * 2 / size(atad)
64atad
65+1.65693748, +1.34460211, +1.02282560, +1.46922219, +1.33458149, +1.31054235, +1.67605376, +1.77785921, +1.86392808, +1.49799800, +1.19019771, +1.02095604, +1.63730121, +1.68822289, +1.96680605, +1.66980171, +1.69085336, +1.22546351, +1.21139979, +1.19655061, +1.90225434, +1.45578611, +1.57953954, +1.32890129, +1.85398698, +1.90000355, +1.88212419, +1.96329772, +1.27312589, +1.59904099, +1.72281051, +1.88081503, +1.66632307, +1.29930186, +1.93487597, +1.00375438, +1.85128021, +1.73528993, +1.43443894, +1.46498132, +1.16956043, +1.47865379, +1.77003551, +1.74960613, +1.90837157, +1.58405781, +1.23460340, +1.30786180, +1.09965348, +1.09346473, +1.39335072, +1.37882280, +1.59371865, +1.89334083, +1.02861643, +1.48797262, +1.81471920, +1.98061562, +1.54785562, +1.48539090, +1.97435045, +1.95061433, +1.61394513, +1.47389960, +1.35714877, +1.57138443, +1.22303283, +1.08056152, +0.357627869E-6, +0.298023224E-6, +0.417232513E-6, +0.417232513E-6, -0.596046448E-7, +0.00000000, +0.178813934E-6, -0.178813934E-6, -0.596046448E-7, +0.238418579E-6, +0.119209290E-6, +0.238418579E-6, +0.596046448E-7, -0.119209290E-6, +0.238418579E-6, -0.119209290E-6, +0.178813934E-6, +0.00000000, +0.238418579E-6, +0.178813934E-6, +0.298023224E-6, -0.357627869E-6, +0.298023224E-6, -0.238418579E-6, +0.119209290E-6, -0.178813934E-6, +0.298023224E-6, +0.596046448E-7, +0.00000000, -0.119209290E-6, +0.238418579E-6, +0.178813934E-6, +0.178813934E-6, +0.119209290E-6, +0.596046448E-7, +0.417232513E-6, +0.298023224E-6, -0.119209290E-6, +0.178813934E-6, -0.596046448E-7, +0.238418579E-6, +0.00000000, +0.596046448E-7, +0.298023224E-6, +0.298023224E-6, +0.119209290E-6, +0.119209290E-6, +0.417232513E-6, +0.238418579E-6, +0.298023224E-6, +0.00000000, +0.357627869E-6, +0.774860382E-6, +0.178813934E-6, +0.298023224E-6, +0.298023224E-6, +0.178813934E-6, +0.119209290E-6, +0.00000000, +0.596046448E-7
66reltol = sqrt(epsilon(1._TKC))
67reltol
68+0.345266977E-3
69isClose(data, atad(1:size(data)), reltol = reltol)
70T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
71call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
72
73lenData = getUnifRand(5, 100)
74lenData
75+50
76data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
77data
78+1.3118111633032781, +1.8970113850376800, +1.7823051623153521, +1.1923580579582511, +1.6562025696003668, +1.6852139358493066, +1.5618230960639932, +1.6729957805994555, +1.3783297249271906, +1.5329798143251245, +1.6933102867395720, +1.3256080406140627, +1.2748054707404330, +1.4947931370575720, +1.5002560101933020, +1.6638940109054934, +1.2432350964218737, +1.5919367006483696, +1.0221541554173783, +1.8206682445105733, +1.2635199256814649, +1.9073477357965547, +1.2851156823651007, +1.5024017660662712, +1.2516593419653228, +1.6526677974522312, +1.3374791481327757, +1.6998591185962990, +1.2267086954371578, +1.9801603897010520, +1.8813671492592812, +1.3962750421810655, +1.3307180942344234, +1.8975652870742803, +1.6328418887158183, +1.0206979423480289, +1.6307170925053516, +1.9036468835458877, +1.5215657605475674, +1.2993029138411636, +1.8846676679962506, +1.6955792174101108, +1.5504287525900171, +1.1437792859240101, +1.5506159342177286, +1.0793724762710792, +1.0336764923581199, +1.3182329767552918, +1.0753247794741569, +1.6347436382942657
79
80atad = getFFTR(getFFTF(data))
81atad = atad * 2 / size(atad)
82atad
83+1.3118111633032781, +1.8970113850376804, +1.7823051623153519, +1.1923580579582518, +1.6562025696003666, +1.6852139358493066, +1.5618230960639929, +1.6729957805994560, +1.3783297249271902, +1.5329798143251245, +1.6933102867395713, +1.3256080406140629, +1.2748054707404326, +1.4947931370575720, +1.5002560101933018, +1.6638940109054938, +1.2432350964218737, +1.5919367006483700, +1.0221541554173783, +1.8206682445105735, +1.2635199256814649, +1.9073477357965549, +1.2851156823651007, +1.5024017660662714, +1.2516593419653226, +1.6526677974522312, +1.3374791481327759, +1.6998591185962990, +1.2267086954371575, +1.9801603897010516, +1.8813671492592809, +1.3962750421810659, +1.3307180942344234, +1.8975652870742805, +1.6328418887158187, +1.0206979423480289, +1.6307170925053514, +1.9036468835458877, +1.5215657605475676, +1.2993029138411640, +1.8846676679962502, +1.6955792174101110, +1.5504287525900173, +1.1437792859240103, +1.5506159342177281, +1.0793724762710792, +1.0336764923581201, +1.3182329767552923, +1.0753247794741567, +1.6347436382942666, +0.44408920985006262E-15, +0.0000000000000000, +0.22204460492503131E-15, -0.33306690738754696E-15, +0.22204460492503131E-15, +0.22204460492503131E-15, -0.22204460492503131E-15, +0.22204460492503131E-15, +0.11102230246251565E-15, +0.88817841970012523E-15, +0.33306690738754696E-15, +0.44408920985006262E-15, +0.44408920985006262E-15, +0.12212453270876722E-14
84reltol = sqrt(epsilon(1._TKC))
85reltol
86+0.14901161193847656E-7
87isClose(data, atad(1:size(data)), reltol = reltol)
88T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
89call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
90
91lenData = getUnifRand(5, 100)
92lenData
93+82
94data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
95data
96+1.18811801115193535179477945055097325, +1.09613820986937368581345888358837814, +1.60705062857135823417604628429069149, +1.38637971233618159246325860997431645, +1.88680877105172023000744246476450461, +1.06097555106100855685253589997100846, +1.92092877852486312803940459345169692, +1.66040188834529452018211927868980456, +1.76174118387111742596347674646339570, +1.14902080828261632096228932117385621, +1.11889696832398301671317806532336283, +1.18115125194132035907624698945379315, +1.07902995061463722275865861713971622, +1.52290673787393727502615912518300991, +1.74464435707368493467262549958157313, +1.25365985809078670445405744711523842, +1.91948730400647824784754000623025335, +1.01656381797940288630262312615887944, +1.39299155432001350998260257360992152, +1.49280084145942432951651748018241939, +1.46303610485847081418513851920479339, +1.75753981563667014049627703240374004, +1.58719438053523246523650753179481600, +1.68325058960868485022019183169684324, +1.15849404225915308726879152930707294, +1.67827468612780509269420208663670485, +1.01913910601340881957977259640740588, +1.66399673830888726913711642820121438, +1.76601267785814336497641197059939140, +1.21651721151727094215550508539126225, +1.82254596968819933156883581584558660, +1.99604541824516521701910010505683072, +1.53038972124901122227611145729103190, +1.60086110017409924284151370269623194, +1.56442561176471165546579707660965596, +1.46481685266182276033440405602074399, +1.30702143444964709458602813224130334, +1.89136085581454594789474753957909579, +1.14265200751927368810215139796941639, +1.39942030103014337063524100925473133, +1.44283231182656930045692208215672732, +1.82511332545272035557954676687969887, +1.71601280500318630722953738292304445, +1.77824504977795972444758240080142667, +1.05643974608896433788800662726350883, +1.14988237372497153304113561432051500, +1.51404725100897754616633191680778690, +1.58095673581495795856057996776608462, +1.94186494371144993488465044875562687, +1.29987040016164227381982818660277846, +1.14208227986104834067394500713462627, +1.78317898284034185543039180278827785, +1.28089082392103483271781835991173429, +1.66255033792647996948958378582003983, +1.31922488069264445947615591529494257, +1.55913485009349184153471009947839100, +1.63691605534035650187739091171735752, +1.47005474887240244105014835807816206, +1.81432790882024321701360743424545913, +1.78560479503115478696515448242509242, +1.32295975549280771466559682764386963, +1.51484745288595424655018602536627188, +1.57225535589171635752280658217353647, +1.41320308717984063788045755387987086, +1.31771259622998381988565017053279421, +1.05519287543892581158516053553310194, +1.30449505650034368472976337179971476, +1.07388096479271249022722484687680063, +1.87929785766746635115961146971848265, +1.00379710428190719172720026730906910, +1.17270221453727829242524346858070591, +1.26991517652566130795513388511491510, +1.77709536625170357607812639383702882, +1.76536374362483081684757602220065305, +1.72909296194169619684452910563970810, +1.08777373158577458456688171478672028, +1.21409939806753393890127857033590921, +1.89220829403454482857578339915299736, +1.96906001138591444304996343236919601, +1.42082771175359660693647497451405312, +1.74195543528549058331199980924731548, +1.35299095975081106538732240645691690
97
98atad = getFFTR(getFFTF(data))
99atad = atad * 2 / size(atad)
100atad
101+1.18811801115193535179477945055097306, +1.09613820986937368581345888358837833, +1.60705062857135823417604628429069168, +1.38637971233618159246325860997431664, +1.88680877105172023000744246476450423, +1.06097555106100855685253589997100827, +1.92092877852486312803940459345169692, +1.66040188834529452018211927868980456, +1.76174118387111742596347674646339628, +1.14902080828261632096228932117385621, +1.11889696832398301671317806532336341, +1.18115125194132035907624698945379277, +1.07902995061463722275865861713971603, +1.52290673787393727502615912518300991, +1.74464435707368493467262549958157390, +1.25365985809078670445405744711523803, +1.91948730400647824784754000623025354, +1.01656381797940288630262312615887944, +1.39299155432001350998260257360992113, +1.49280084145942432951651748018241939, +1.46303610485847081418513851920479320, +1.75753981563667014049627703240374024, +1.58719438053523246523650753179481581, +1.68325058960868485022019183169684324, +1.15849404225915308726879152930707333, +1.67827468612780509269420208663670524, +1.01913910601340881957977259640740568, +1.66399673830888726913711642820121457, +1.76601267785814336497641197059939102, +1.21651721151727094215550508539126225, +1.82254596968819933156883581584558660, +1.99604541824516521701910010505683111, +1.53038972124901122227611145729103190, +1.60086110017409924284151370269623194, +1.56442561176471165546579707660965596, +1.46481685266182276033440405602074399, +1.30702143444964709458602813224130372, +1.89136085581454594789474753957909579, +1.14265200751927368810215139796941639, +1.39942030103014337063524100925473133, +1.44283231182656930045692208215672751, +1.82511332545272035557954676687969925, +1.71601280500318630722953738292304503, +1.77824504977795972444758240080142686, +1.05643974608896433788800662726350902, +1.14988237372497153304113561432051500, +1.51404725100897754616633191680778671, +1.58095673581495795856057996776608443, +1.94186494371144993488465044875562687, +1.29987040016164227381982818660277865, +1.14208227986104834067394500713462608, +1.78317898284034185543039180278827785, +1.28089082392103483271781835991173429, +1.66255033792647996948958378582003983, +1.31922488069264445947615591529494257, +1.55913485009349184153471009947839062, +1.63691605534035650187739091171735752, +1.47005474887240244105014835807816206, +1.81432790882024321701360743424545913, +1.78560479503115478696515448242509280, +1.32295975549280771466559682764387001, +1.51484745288595424655018602536627169, +1.57225535589171635752280658217353647, +1.41320308717984063788045755387987047, +1.31771259622998381988565017053279421, +1.05519287543892581158516053553310213, +1.30449505650034368472976337179971438, +1.07388096479271249022722484687680063, +1.87929785766746635115961146971848284, +1.00379710428190719172720026730906910, +1.17270221453727829242524346858070611, +1.26991517652566130795513388511491510, +1.77709536625170357607812639383702863, +1.76536374362483081684757602220065382, +1.72909296194169619684452910563970829, +1.08777373158577458456688171478672066, +1.21409939806753393890127857033590921, +1.89220829403454482857578339915299793, +1.96906001138591444304996343236919620, +1.42082771175359660693647497451405351, +1.74195543528549058331199980924731567, +1.35299095975081106538732240645691709, +0.00000000000000000000000000000000000, -0.481482486096808963263994485646231830E-33, +0.385185988877447170611195588516985464E-33, +0.00000000000000000000000000000000000, +0.577778983316170755916793382775478196E-33, -0.192592994438723585305597794258492732E-33, -0.288889491658085377958396691387739098E-33, -0.192592994438723585305597794258492732E-33, -0.288889491658085377958396691387739098E-33, -0.481482486096808963263994485646231830E-33, +0.00000000000000000000000000000000000, -0.288889491658085377958396691387739098E-33, +0.00000000000000000000000000000000000, -0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34, +0.962964972193617926527988971292463659E-34, -0.481482486096808963263994485646231830E-33, +0.385185988877447170611195588516985464E-33, +0.192592994438723585305597794258492732E-33, +0.192592994438723585305597794258492732E-33, +0.288889491658085377958396691387739098E-33, -0.192592994438723585305597794258492732E-33, -0.577778983316170755916793382775478196E-33, +0.00000000000000000000000000000000000, -0.481482486096808963263994485646231830E-33, -0.192592994438723585305597794258492732E-33, -0.192592994438723585305597794258492732E-33, -0.962964972193617926527988971292463659E-34, -0.192592994438723585305597794258492732E-33, +0.288889491658085377958396691387739098E-33, +0.192592994438723585305597794258492732E-33, +0.192592994438723585305597794258492732E-33, -0.288889491658085377958396691387739098E-33, +0.962964972193617926527988971292463659E-34, +0.288889491658085377958396691387739098E-33, +0.962964972193617926527988971292463659E-34, +0.192592994438723585305597794258492732E-33, +0.288889491658085377958396691387739098E-33, -0.288889491658085377958396691387739098E-33, -0.962964972193617926527988971292463659E-34, -0.385185988877447170611195588516985464E-33, +0.00000000000000000000000000000000000, -0.385185988877447170611195588516985464E-33, +0.962964972193617926527988971292463659E-34, -0.288889491658085377958396691387739098E-33
102reltol = sqrt(epsilon(1._TKC))
103reltol
104+0.138777878078144567552953958511352539E-16
105isClose(data, atad(1:size(data)), reltol = reltol)
106T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
107call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
108
109lenData = getUnifRand(5, 100)
110lenData
111+92
112data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
113data
114(+1.64155650, +0.641750753), (+1.54955769, +0.730981290), (+1.83950198, +0.494919538), (+1.39419663, +0.775315404), (+1.47970033, +0.234467089), (+1.64069629, +0.775052190), (+1.01478386, +0.258545876), (+1.41110408, +0.616210818), (+1.55109835, +0.887203991), (+1.23557305, +0.154972017), (+1.74138093, +0.680405915), (+1.19779420, +0.971753299), (+1.36924362, +0.925173104), (+1.63678098, +0.278857291), (+1.77606308, +0.323512197), (+1.48082876, +0.472373307), (+1.18368435, +0.601816297), (+1.61941099, +0.264532924), (+1.88980567, +0.385493159), (+1.17581010, +0.301635385), (+1.61634851, +0.306588650), (+1.51017141, +0.519706368), (+1.46408367, +0.168442667), (+1.21469724, +0.542114913), (+1.59314609, +0.197269917), (+1.53505838, +0.610154748), (+1.78532386, +0.731694937), (+1.97005284, +0.498553514E-1), (+1.06882560, +0.603886366), (+1.20738602, +0.317828238), (+1.07254672, +0.355090857), (+1.55194569, +0.540508389), (+1.53645682, +0.531446278), (+1.00085759, +0.373946786), (+1.62987041, +0.138516665), (+1.24570358, +0.363770783), (+1.68452191, +0.461118817), (+1.72976398, +0.991061807), (+1.51471472, +0.285684705), (+1.03833473, +0.923705101), (+1.11730576, +0.524151742), (+1.77421749, +0.862164497), (+1.00508094, +0.210680127), (+1.30029440, +0.687372625), (+1.50719404, +0.504128456), (+1.81018949, +0.713835716), (+1.20780730, +0.454520524), (+1.62464023, +0.588005483), (+1.40680718, +0.876917839E-1), (+1.41040576, +0.578181148), (+1.29210043, +0.513864100), (+1.71132302, +0.561878085), (+1.71702802, +0.638198733), (+1.51012909, +0.236427069), (+1.16664648, +0.432596684), (+1.57988942, +0.940948606), (+1.60251284, +0.175965428E-1), (+1.50882339, +0.373088241), (+1.54250956, +0.366304755), (+1.00743055, +0.556613266), (+1.23622251, +0.516642869), (+1.07993519, +0.632296979), (+1.58437002, +0.626301408), (+1.64456224, +0.486528158), (+1.44626379, +0.870859921), (+1.04384756, +0.729781151), (+1.66392326, +0.519783974), (+1.56665659, +0.681513727), (+1.53294444, +0.728144646E-1), (+1.59741509, +0.503300250), (+1.96586764, +0.456998527), (+1.19190812, +0.574825227), (+1.69356370, +0.257667363), (+1.00856090, +0.391508937), (+1.26201081, +0.339328349), (+1.89188123, +0.510004759E-1), (+1.40380669, +0.631654263E-1), (+1.33679605, +0.839502573), (+1.54300189, +0.700901091), (+1.97841287, +0.952075541), (+1.21027875, +0.357370317), (+1.98139274, +0.190743625), (+1.34783399, +0.181089759), (+1.50426412, +0.485112607), (+1.09929299, +0.954533815E-1), (+1.56276774, +0.810650170), (+1.29734015, +0.856253982), (+1.95796442, +0.637385488), (+1.73489523, +0.318877637), (+1.26139069, +0.683355868), (+1.36676133, +0.229215264), (+1.97756028, +0.974777400)
115
116atad = getFFTR(getFFTF(data))
117atad = atad / size(atad)
118atad
119(+1.64155626, +0.641750693), (+1.54955792, +0.730981410), (+1.83950162, +0.494919479), (+1.39419639, +0.775315404), (+1.47969997, +0.234466970), (+1.64069617, +0.775052190), (+1.01478338, +0.258545667), (+1.41110396, +0.616210699), (+1.55109823, +0.887203991), (+1.23557329, +0.154972225), (+1.74138093, +0.680405855), (+1.19779408, +0.971753240), (+1.36924338, +0.925173223), (+1.63678133, +0.278857291), (+1.77606297, +0.323512197), (+1.48082852, +0.472373307), (+1.18368411, +0.601816297), (+1.61941099, +0.264533103), (+1.88980556, +0.385493040), (+1.17580986, +0.301635653), (+1.61634839, +0.306588739), (+1.51017141, +0.519706488), (+1.46408343, +0.168442607), (+1.21469700, +0.542115092), (+1.59314609, +0.197270006), (+1.53505838, +0.610154986), (+1.78532362, +0.731694937), (+1.97005248, +0.498555303E-1), (+1.06882548, +0.603886425), (+1.20738590, +0.317828387), (+1.07254660, +0.355090946), (+1.55194557, +0.540508389), (+1.53645658, +0.531446159), (+1.00085759, +0.373946726), (+1.62987018, +0.138516575), (+1.24570346, +0.363770545), (+1.68452179, +0.461118639), (+1.72976398, +0.991061509), (+1.51471448, +0.285684377), (+1.03833461, +0.923704863), (+1.11730576, +0.524151564), (+1.77421737, +0.862164497), (+1.00508082, +0.210679933), (+1.30029392, +0.687372506), (+1.50719380, +0.504128337), (+1.81018972, +0.713835716), (+1.20780730, +0.454520345), (+1.62463999, +0.588005185), (+1.40680695, +0.876917243E-1), (+1.41040576, +0.578181028), (+1.29210019, +0.513863921), (+1.71132267, +0.561877906), (+1.71702790, +0.638198495), (+1.51012921, +0.236426845), (+1.16664624, +0.432596445), (+1.57988930, +0.940948367), (+1.60251272, +0.175964683E-1), (+1.50882316, +0.373088241), (+1.54250932, +0.366304576), (+1.00743055, +0.556613088), (+1.23622215, +0.516642749), (+1.07993507, +0.632296920), (+1.58436966, +0.626301050), (+1.64456201, +0.486528158), (+1.44626355, +0.870859981), (+1.04384756, +0.729781091), (+1.66392303, +0.519783795), (+1.56665647, +0.681513548), (+1.53294432, +0.728144944E-1), (+1.59741509, +0.503300190), (+1.96586728, +0.456998318), (+1.19190812, +0.574825048), (+1.69356358, +0.257667363), (+1.00856090, +0.391508907), (+1.26201081, +0.339328259), (+1.89188087, +0.510005951E-1), (+1.40380645, +0.631654859E-1), (+1.33679593, +0.839502752), (+1.54300189, +0.700901151), (+1.97841263, +0.952075422), (+1.21027851, +0.357370287), (+1.98139262, +0.190743670), (+1.34783411, +0.181089640), (+1.50426388, +0.485112578), (+1.09929287, +0.954534113E-1), (+1.56276751, +0.810650110), (+1.29734015, +0.856253862), (+1.95796454, +0.637385488), (+1.73489499, +0.318877727), (+1.26139033, +0.683355927), (+1.36676121, +0.229215235), (+1.97755980, +0.974777281), (-0.178813934E-6, -0.596046448E-7), (-0.119209290E-6, -0.894069672E-7), (+0.119209290E-6, +0.894069672E-7), (+0.357627869E-6, +0.298023224E-7), (-0.238418579E-6, +0.596046448E-7), (-0.596046448E-7, +0.104308128E-6), (+0.178813934E-6, +0.201165676E-6), (+0.00000000, +0.298023224E-6), (-0.119209290E-6, +0.342726707E-6), (-0.178813934E-6, +0.298023224E-6), (+0.00000000, +0.298023224E-6), (+0.178813934E-6, +0.417232513E-6), (-0.596046448E-7, +0.298023224E-7), (+0.00000000, +0.00000000), (+0.00000000, +0.163912773E-6), (+0.00000000, +0.596046448E-7), (-0.238418579E-6, +0.149011612E-6), (+0.238418579E-6, +0.894069672E-7), (+0.596046448E-7, +0.193715096E-6), (+0.178813934E-6, +0.894069672E-7), (-0.596046448E-7, +0.596046448E-7), (+0.119209290E-6, +0.298023224E-7), (+0.417232513E-6, +0.208616257E-6), (+0.119209290E-6, +0.238418579E-6), (+0.00000000, +0.119209290E-6), (+0.238418579E-6, +0.163912773E-6), (+0.596046448E-7, +0.193715096E-6), (+0.178813934E-6, +0.298023224E-6), (+0.119209290E-6, -0.253319740E-6), (+0.178813934E-6, -0.134110451E-6), (+0.238418579E-6, +0.596046448E-7), (+0.596046448E-7, -0.298023224E-7), (-0.119209290E-6, +0.596046448E-7), (+0.178813934E-6, -0.894069672E-7), (-0.596046448E-7, +0.208616257E-6), (+0.238418579E-6, +0.193715096E-6)
120reltol = sqrt(epsilon(1._TKC))
121reltol
122+0.345266977E-3
123isClose(data, atad(1:size(data)), reltol = reltol)
124T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
125call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
126
127lenData = getUnifRand(5, 100)
128lenData
129+97
130data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
131data
132(+1.1545212600775172, +0.60317990221462980), (+1.3060110698639065, +0.56951043506215160E-1), (+1.7227337045509492, +0.72279875501446833), (+1.0251571820199525, +0.55676002057762397), (+1.2495128548920054, +0.21630230567228492), (+1.3151405812142407, +0.26679991163591754), (+1.8789264030621462, +0.51851902613446565), (+1.1126392621513994, +0.27810956201960613E-1), (+1.0951372599811715, +0.57258079358441916), (+1.2215420464459341, +0.43261739791993947), (+1.2441974721071281, +0.57252631753137662), (+1.1923255367904142, +0.71820769939916818E-1), (+1.8729163424850026, +0.45345851187268105), (+1.5614195102775283, +0.41169141587282010), (+1.4016236373885345, +0.52737259966075256), (+1.0217807121484146, +0.20779420954376104), (+1.3974386008588806, +0.91105466754551923), (+1.5478623025451790, +0.70584136704254796), (+1.7633997214412398, +0.32672755466394166), (+1.9734432667080304, +0.58547192461598441), (+1.7858715240605720, +0.57233303618443143E-1), (+1.9046209647875849, +0.99045271624306208E-1), (+1.8094899717723973, +0.75763320428129144), (+1.2730527755461449, +0.68850364360773264), (+1.3997097915600856, +0.91405645031946048), (+1.6978521427904725, +0.11750554864880192), (+1.7002403231895840, +0.24740594391327431), (+1.6347854408693245, +0.51331292744901580), (+1.9075815563233978, +0.97507752338262133), (+1.3561815804319191, +0.83720645843472496), (+1.9502978226737024, +0.51834117773047383), (+1.2551645985487789, +0.61831001645465089), (+1.1001909178679430, +0.41994460024741709), (+1.3768505626741496, +0.95551015788673532), (+1.6545923224581984, +0.68250527665313188), (+1.1237645393686893, +0.72239020646891450), (+1.8064537647253898, +0.44417778034479927), (+1.2919730693417399, +0.43763709610438972), (+1.4902603019824905, +0.16021866445896638), (+1.5458541445097698, +0.98676885228843048), (+1.1711820858729494, +0.51304692643204786), (+1.3368725605994638, +0.82580400565476952), (+1.0985140351123006, +0.96159243441325426), (+1.4712024607178238, +0.57340448164531566), (+1.1838726561574129, +0.36883515970550607), (+1.9330397411735740, +0.74617455775569719), (+1.7877145930296254, +0.86864347958385990), (+1.7901476687789322, +0.38179656628115433), (+1.3781131691904798, +0.66499444128635010), (+1.9339771745051206, +0.65103891978660366), (+1.5810103675328167, +0.52625565712497013), (+1.2951580670107519, +0.84157633523959197), (+1.2109940397669083, +0.49033871023170805E-1), (+1.6439336666337154, +0.73146166373284582), (+1.3861595136852118, +0.14546484163982254), (+1.0343146907796164, +0.12847819111813963), (+1.1478458753521315, +0.60896514355995734), (+1.2667270064318870, +0.12652201811363806), (+1.4878353421683186, +0.94637716373138270), (+1.9090654974167292, +0.65399694281989884), (+1.5544720068629663, +0.92308951680613827), (+1.1564526015384557, +0.60434602386831293E-1), (+1.6484529677626205, +0.46562814741586855), (+1.9398215232572884, +0.15844269803997635), (+1.6077069287741630, +0.10534166377566645), (+1.9967656861818601, +0.89685238014013546), (+1.4996485027841668, +0.50028835083899303), (+1.7078378189099328, +0.87969254828092891), (+1.2439935423994579, +0.51216814421172685), (+1.2328180560244577, +0.55924448231008439), (+1.9995250638845103, +0.30904111908895637E-1), (+1.2121047993403589, +0.22136092661314666), (+1.4417910473455819, +0.33205036195409543), (+1.1290654024217881, +0.47694374852486832), (+1.4062589216102328, +0.78327691096993124), (+1.5223162398570542, +0.57762776944466410), (+1.2453280623092098, +0.80898737226744288), (+1.3136285573995035, +0.23253066720163307), (+1.1778464335664141, +0.14106587550003602E-1), (+1.1812386059891797, +0.98587484586485974), (+1.6517785092572286, +0.41191766232519433), (+1.9142425279435429, +0.51246378434661888), (+1.2721224967470572, +0.11587987320600601), (+1.9167309661985694, +0.16377918915381839), (+1.2238473725511325, +0.47902308152415396), (+1.3858448468038316, +0.72382317153233744), (+1.4537707694276629, +0.31105410957195601), (+1.9159386695256777, +0.49709081815701217), (+1.4008847809692488, +0.71665049619944454), (+1.4733304623093257, +0.77345324690137141), (+1.5050023858389125, +0.86183125853145748), (+1.5067341179843747, +0.57212935177505786), (+1.5037284552305152, +0.18769864531885416), (+1.3115437474164906, +0.39265574693960359), (+1.1172424275871693, +0.36458487054386135), (+1.1513907068242628, +0.71442167303144566E-1), (+1.2238843003542512, +0.47697986504502621)
133
134atad = getFFTR(getFFTF(data))
135atad = atad / size(atad)
136atad
137(+1.1545212600775172, +0.60317990221463003), (+1.3060110698639069, +0.56951043506215437E-1), (+1.7227337045509492, +0.72279875501446833), (+1.0251571820199528, +0.55676002057762430), (+1.2495128548920049, +0.21630230567228503), (+1.3151405812142403, +0.26679991163591776), (+1.8789264030621462, +0.51851902613446543), (+1.1126392621513994, +0.27810956201960876E-1), (+1.0951372599811715, +0.57258079358441916), (+1.2215420464459341, +0.43261739791993981), (+1.2441974721071285, +0.57252631753137662), (+1.1923255367904149, +0.71820769939917151E-1), (+1.8729163424850022, +0.45345851187268110), (+1.5614195102775275, +0.41169141587282054), (+1.4016236373885342, +0.52737259966075278), (+1.0217807121484146, +0.20779420954376127), (+1.3974386008588804, +0.91105466754551934), (+1.5478623025451790, +0.70584136704254818), (+1.7633997214412398, +0.32672755466394166), (+1.9734432667080306, +0.58547192461598474), (+1.7858715240605716, +0.57233303618443032E-1), (+1.9046209647875842, +0.99045271624306375E-1), (+1.8094899717723973, +0.75763320428129100), (+1.2730527755461449, +0.68850364360773275), (+1.3997097915600856, +0.91405645031946037), (+1.6978521427904723, +0.11750554864880236), (+1.7002403231895842, +0.24740594391327447), (+1.6347854408693245, +0.51331292744901635), (+1.9075815563233973, +0.97507752338262099), (+1.3561815804319184, +0.83720645843472485), (+1.9502978226737020, +0.51834117773047372), (+1.2551645985487789, +0.61831001645465089), (+1.1001909178679430, +0.41994460024741698), (+1.3768505626741496, +0.95551015788673521), (+1.6545923224581989, +0.68250527665313165), (+1.1237645393686893, +0.72239020646891428), (+1.8064537647253895, +0.44417778034479893), (+1.2919730693417399, +0.43763709610438950), (+1.4902603019824907, +0.16021866445896607), (+1.5458541445097698, +0.98676885228843059), (+1.1711820858729491, +0.51304692643204786), (+1.3368725605994638, +0.82580400565476952), (+1.0985140351123008, +0.96159243441325404), (+1.4712024607178245, +0.57340448164531599), (+1.1838726561574129, +0.36883515970550579), (+1.9330397411735738, +0.74617455775569697), (+1.7877145930296254, +0.86864347958385957), (+1.7901476687789328, +0.38179656628115421), (+1.3781131691904798, +0.66499444128634988), (+1.9339771745051211, +0.65103891978660355), (+1.5810103675328171, +0.52625565712496991), (+1.2951580670107523, +0.84157633523959174), (+1.2109940397669083, +0.49033871023170750E-1), (+1.6439336666337154, +0.73146166373284549), (+1.3861595136852118, +0.14546484163982237), (+1.0343146907796166, +0.12847819111813971), (+1.1478458753521315, +0.60896514355995723), (+1.2667270064318870, +0.12652201811363792), (+1.4878353421683190, +0.94637716373138236), (+1.9090654974167292, +0.65399694281989884), (+1.5544720068629660, +0.92308951680613804), (+1.1564526015384557, +0.60434602386831085E-1), (+1.6484529677626205, +0.46562814741586828), (+1.9398215232572886, +0.15844269803997629), (+1.6077069287741628, +0.10534166377566659), (+1.9967656861818601, +0.89685238014013580), (+1.4996485027841666, +0.50028835083899303), (+1.7078378189099330, +0.87969254828092891), (+1.2439935423994575, +0.51216814421172685), (+1.2328180560244575, +0.55924448231008439), (+1.9995250638845103, +0.30904111908895721E-1), (+1.2121047993403589, +0.22136092661314660), (+1.4417910473455815, +0.33205036195409565), (+1.1290654024217877, +0.47694374852486821), (+1.4062589216102330, +0.78327691096993135), (+1.5223162398570544, +0.57762776944466410), (+1.2453280623092091, +0.80898737226744277), (+1.3136285573995028, +0.23253066720163315), (+1.1778464335664141, +0.14106587550003491E-1), (+1.1812386059891802, +0.98587484586485963), (+1.6517785092572284, +0.41191766232519439), (+1.9142425279435429, +0.51246378434661877), (+1.2721224967470572, +0.11587987320600587), (+1.9167309661985696, +0.16377918915381853), (+1.2238473725511323, +0.47902308152415407), (+1.3858448468038309, +0.72382317153233711), (+1.4537707694276629, +0.31105410957195584), (+1.9159386695256777, +0.49709081815701195), (+1.4008847809692484, +0.71665049619944465), (+1.4733304623093255, +0.77345324690137118), (+1.5050023858389128, +0.86183125853145737), (+1.5067341179843745, +0.57212935177505730), (+1.5037284552305150, +0.18769864531885400), (+1.3115437474164899, +0.39265574693960292), (+1.1172424275871693, +0.36458487054386068), (+1.1513907068242630, +0.71442167303144066E-1), (+1.2238843003542512, +0.47697986504502632), (-0.22204460492503131E-15, -0.44408920985006262E-15), (+0.11102230246251565E-15, +0.0000000000000000), (-0.11102230246251565E-15, -0.44408920985006262E-15), (+0.0000000000000000, +0.41633363423443370E-15), (-0.11102230246251565E-15, -0.24980018054066022E-15), (+0.33306690738754696E-15, +0.83266726846886741E-16), (+0.0000000000000000, -0.55511151231257827E-16), (-0.33306690738754696E-15, -0.55511151231257827E-16), (-0.11102230246251565E-15, -0.27755575615628914E-15), (+0.0000000000000000, -0.16653345369377348E-15), (+0.22204460492503131E-15, -0.33306690738754696E-15), (-0.11102230246251565E-15, +0.11102230246251565E-15), (-0.22204460492503131E-15, +0.0000000000000000), (+0.22204460492503131E-15, -0.55511151231257827E-16), (+0.55511151231257827E-15, +0.27755575615628914E-16), (-0.22204460492503131E-15, +0.33306690738754696E-15), (+0.44408920985006262E-15, +0.27755575615628914E-15), (+0.33306690738754696E-15, +0.16653345369377348E-15), (+0.33306690738754696E-15, +0.22204460492503131E-15), (+0.44408920985006262E-15, +0.38857805861880479E-15), (+0.11102230246251565E-15, +0.38857805861880479E-15), (+0.77715611723760958E-15, +0.55511151231257827E-15), (+0.44408920985006262E-15, +0.47184478546569153E-15), (+0.0000000000000000, +0.55511151231257827E-16), (+0.33306690738754696E-15, +0.36082248300317588E-15), (+0.44408920985006262E-15, +0.33306690738754696E-15), (+0.77715611723760958E-15, +0.16653345369377348E-15), (+0.22204460492503131E-15, +0.66613381477509392E-15), (+0.11102230246251565E-15, +0.98532293435482643E-15), (+0.11102230246251565E-15, +0.88817841970012523E-15), (+0.88817841970012523E-15, +0.70776717819853729E-15)
138reltol = sqrt(epsilon(1._TKC))
139reltol
140+0.14901161193847656E-7
141isClose(data, atad(1:size(data)), reltol = reltol)
142T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
143call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
144
145lenData = getUnifRand(5, 100)
146lenData
147+29
148data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
149data
150(+1.00228078202123078879674686152097658, +0.943049181126332263658492103894283227), (+1.41238722928545010365459756545566738, +0.515773778921976863883652941526386718), (+1.10749686134841239454525872143498652, +0.483918377854350552209575065792431324), (+1.89696383746582065299540230852107401, +0.701219015940588825414589214334794931), (+1.00375685294146586517337702304126071, +0.706031572110779412378514716323306981E-1), (+1.64268956968648578896541976048395887, +0.818259950647781733703973444557163955), (+1.86325145955797895638833290155714850, +0.857678898741904045618201074724922193), (+1.02994073953262070663718065443104380, +0.791464659019707741840879898017596156), (+1.07038085603392490720787033680375164, +0.990248571489335693758541354098190609), (+1.88286453883324221256903673059902778, +0.306941631874174918109149656132089537), (+1.59985995038006374907196040222145682, +0.126080084141031121157194981279211741), (+1.64682194850058708204629811723248462, +0.384562873689729643466784170679615756), (+1.38561188449914124448296908931762015, +0.429080508844154152385052851349399566), (+1.56002373325701223775913191446209146, +0.375821265072939004661606524070509380), (+1.62312910062728592711640137820251901, +0.264033295036542007018518051396863047E-1), (+1.09434195284364660535120026712477492, +0.230616890497588585955135936686561932), (+1.82663898479711801185978555697072380, +0.205044946931257406903693230153813941), (+1.68023648034822889454843430007768892, +0.913128708561278348955438065512970959), (+1.09282803185328274451222661559172108, +0.244402400796330436587368158050207539), (+1.36950346134663521125082347407061439, +0.265755375991569409104957097657291861), (+1.01855588023459354085521272393815313, +0.770713825364193548468247745690570304), (+1.49674823816364428312963949685382592, +0.199491375917070219541530709885095782), (+1.48739440580220367784526559899549710, +0.565218727073562358749193282266448908), (+1.54454975453709936723420582951238942, +0.592928937242421551755711989471027759), (+1.28320974298131052986103668553016359, +0.648497573471152718175279128889919674), (+1.49822091804171591415136944746754171, +0.202277074311423894733975720217148478), (+1.61862733009759791732963948737378115, +0.962704317787484357271778128809330229), (+1.45794724726910668533231169159348065, +0.777443048590165259207855915107127887), (+1.52460228790803471198487988212879741, +0.792553863187167415505896144121792652)
151
152atad = getFFTR(getFFTF(data))
153atad = atad / size(atad)
154atad
155(+1.00228078202123078879674686152097677, +0.943049181126332263658492103894283227), (+1.41238722928545010365459756545566719, +0.515773778921976863883652941526386718), (+1.10749686134841239454525872143498632, +0.483918377854350552209575065792431132), (+1.89696383746582065299540230852107420, +0.701219015940588825414589214334795027), (+1.00375685294146586517337702304126090, +0.706031572110779412378514716323306981E-1), (+1.64268956968648578896541976048395867, +0.818259950647781733703973444557163762), (+1.86325145955797895638833290155714869, +0.857678898741904045618201074724922097), (+1.02994073953262070663718065443104380, +0.791464659019707741840879898017596156), (+1.07038085603392490720787033680375183, +0.990248571489335693758541354098190609), (+1.88286453883324221256903673059902740, +0.306941631874174918109149656132089633), (+1.59985995038006374907196040222145682, +0.126080084141031121157194981279211548), (+1.64682194850058708204629811723248462, +0.384562873689729643466784170679615611), (+1.38561188449914124448296908931762054, +0.429080508844154152385052851349399566), (+1.56002373325701223775913191446209108, +0.375821265072939004661606524070509332), (+1.62312910062728592711640137820251901, +0.264033295036542007018518051396862566E-1), (+1.09434195284364660535120026712477454, +0.230616890497588585955135936686562004), (+1.82663898479711801185978555697072418, +0.205044946931257406903693230153814037), (+1.68023648034822889454843430007768854, +0.913128708561278348955438065512970959), (+1.09282803185328274451222661559172108, +0.244402400796330436587368158050207515), (+1.36950346134663521125082347407061458, +0.265755375991569409104957097657291765), (+1.01855588023459354085521272393815332, +0.770713825364193548468247745690570208), (+1.49674823816364428312963949685382573, +0.199491375917070219541530709885095782), (+1.48739440580220367784526559899549748, +0.565218727073562358749193282266449101), (+1.54454975453709936723420582951238980, +0.592928937242421551755711989471027856), (+1.28320974298131052986103668553016379, +0.648497573471152718175279128889919866), (+1.49822091804171591415136944746754132, +0.202277074311423894733975720217148550), (+1.61862733009759791732963948737378095, +0.962704317787484357271778128809330133), (+1.45794724726910668533231169159348065, +0.777443048590165259207855915107127694), (+1.52460228790803471198487988212879760, +0.792553863187167415505896144121792652), (-0.962964972193617926527988971292463659E-34, -0.481482486096808963263994485646231830E-34), (-0.288889491658085377958396691387739098E-33, -0.144444745829042688979198345693869549E-33), (+0.00000000000000000000000000000000000, +0.120370621524202240815998621411557957E-33)
156reltol = sqrt(epsilon(1._TKC))
157reltol
158+0.138777878078144567552953958511352539E-16
159isClose(data, atad(1:size(data)), reltol = reltol)
160T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
161call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
162
163lenData = getUnifRand(5, 100)
164lenData
165+16
166data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
167data
168+1.38607001, +1.14675355, +1.14250827, +1.85935879, +1.04455662, +1.78840566, +1.04907656, +1.40886474, +1.14332652, +1.65676057, +1.51836467, +1.23526573, +1.23341036, +1.02688634, +1.14299357, +1.40824580
169
170atad = getFFTR(getFFTF(data))
171atad = atad * 2 / size(atad)
172atad
173+1.38607001, +1.14675355, +1.14250839, +1.85935855, +1.04455674, +1.78840542, +1.04907668, +1.40886462, +1.14332652, +1.65676045, +1.51836479, +1.23526573, +1.23341024, +1.02688646, +1.14299357, +1.40824568
174reltol = sqrt(epsilon(1._TKC))
175reltol
176+0.345266977E-3
177isClose(data, atad(1:size(data)), reltol = reltol)
178T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
179call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
180
181lenData = getUnifRand(5, 100)
182lenData
183+47
184data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
185data
186+1.6321979889409630, +1.7489560114754046, +1.7203471153047600, +1.8415784760656497, +1.4450683056391789, +1.4918474486745645, +1.6643889431425105, +1.2842726263713269, +1.6862902111593856, +1.9400734211590798, +1.0151629029135028, +1.5710605000647759, +1.3729357814086842, +1.3435994923144763, +1.7399780874233097, +1.0199333215632032, +1.6796676679976752, +1.8796902691690507, +1.3541059333257075, +1.7716069771615270, +1.6174886687567591, +1.9672881246537948, +1.5084730407112170, +1.4821658923644772, +1.9501178012213725, +1.8624071879398416, +1.4800613424276423, +1.3593665431062343, +1.7211114766379843, +1.2752268345830844, +1.5035149376725097, +1.5518221241170052, +1.0466867421175112, +1.7744845146525274, +1.4002922973236052, +1.2968232041909644, +1.4507692046370630, +1.7922687768933279, +1.6652688986183206, +1.4787053289420231, +1.2653949458296931, +1.4079436344706846, +1.4734653298016618, +1.9337718591654327, +1.5371784007025346, +1.9883048741019529, +1.5603905871285852
187
188atad = getFFTR(getFFTF(data))
189atad = atad * 2 / size(atad)
190atad
191+1.6321979889409630, +1.7489560114754050, +1.7203471153047596, +1.8415784760656504, +1.4450683056391791, +1.4918474486745645, +1.6643889431425103, +1.2842726263713273, +1.6862902111593856, +1.9400734211590800, +1.0151629029135030, +1.5710605000647759, +1.3729357814086844, +1.3435994923144765, +1.7399780874233097, +1.0199333215632032, +1.6796676679976752, +1.8796902691690502, +1.3541059333257075, +1.7716069771615266, +1.6174886687567591, +1.9672881246537939, +1.5084730407112170, +1.4821658923644767, +1.9501178012213720, +1.8624071879398407, +1.4800613424276419, +1.3593665431062338, +1.7211114766379843, +1.2752268345830839, +1.5035149376725092, +1.5518221241170047, +1.0466867421175112, +1.7744845146525277, +1.4002922973236054, +1.2968232041909642, +1.4507692046370633, +1.7922687768933279, +1.6652688986183206, +1.4787053289420231, +1.2653949458296934, +1.4079436344706844, +1.4734653298016622, +1.9337718591654323, +1.5371784007025346, +1.9883048741019529, +1.5603905871285857, +0.11102230246251565E-15, +0.0000000000000000, -0.11102230246251565E-15, +0.55511151231257827E-15, +0.11102230246251565E-15, +0.44408920985006262E-15, +0.0000000000000000, +0.88817841970012523E-15, +0.11102230246251565E-15, +0.44408920985006262E-15, +0.11102230246251565E-15, +0.44408920985006262E-15, +0.77715611723760958E-15, +0.99920072216264089E-15, +0.44408920985006262E-15, +0.66613381477509392E-15, +0.12212453270876722E-14
192reltol = sqrt(epsilon(1._TKC))
193reltol
194+0.14901161193847656E-7
195isClose(data, atad(1:size(data)), reltol = reltol)
196T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
197call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
198
199lenData = getUnifRand(5, 100)
200lenData
201+44
202data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
203data
204+1.79160938018238126331948882606607924, +1.19986722824792167400090175553253641, +1.20854812986406852195111781357010953, +1.37506515525881390092910828702267544, +1.79533863920573459741076977329618247, +1.96834829582159029079887027649175673, +1.47122061004968418459959962219721380, +1.26471703559150301170540979186226501, +1.46891546867129923814495490171851755, +1.51240881632705934188342668474275984, +1.71604957398536896177250064920276252, +1.90436482234198130940171501189952559, +1.04271084913042889600488398255793590, +1.35402578639032058433300253386384816, +1.20175604972821557319084186084663558, +1.70485623908719442165804582008136803, +1.65850856502341042048623441163810140, +1.73741963135063008312255744527855578, +1.47283058264335010380071833334721914, +1.57526951273703755898134765292062102, +1.69470596207758229760023360701595354, +1.53049379178087162865219983504396269, +1.41991481152009896077664663960022566, +1.85603929123364845707419307871982525, +1.78052658743941574702074539786880389, +1.94844335301803343652581140719845093, +1.06900877829413054397923490531808581, +1.97176211283065684018209329975637917, +1.20190298649971320163132630026967452, +1.53806561231254043139932127269002659, +1.18350300305391309043969989394567911, +1.58085573919107458957648563888184109, +1.39226093753922811908869559076880684, +1.40492821517202379848011361798335010, +1.84566493097631933611792118673679043, +1.97548708533882316630579875422926713, +1.53182291953393744000469513973363256, +1.46005628770257096198490132701454909, +1.63948319975660724985862376578098636, +1.19354261689713518006572047164238896, +1.80090027404254052152359384767612562, +1.47760312610296096653407675006172710, +1.09027207220265670966562225393329326, +1.84955289951161328309957814009761770
205
206atad = getFFTR(getFFTF(data))
207atad = atad * 2 / size(atad)
208atad
209+1.79160938018238126331948882606607962, +1.19986722824792167400090175553253641, +1.20854812986406852195111781357010953, +1.37506515525881390092910828702267563, +1.79533863920573459741076977329618266, +1.96834829582159029079887027649175711, +1.47122061004968418459959962219721399, +1.26471703559150301170540979186226501, +1.46891546867129923814495490171851774, +1.51240881632705934188342668474275965, +1.71604957398536896177250064920276252, +1.90436482234198130940171501189952539, +1.04271084913042889600488398255793590, +1.35402578639032058433300253386384797, +1.20175604972821557319084186084663577, +1.70485623908719442165804582008136842, +1.65850856502341042048623441163810140, +1.73741963135063008312255744527855558, +1.47283058264335010380071833334721895, +1.57526951273703755898134765292062083, +1.69470596207758229760023360701595354, +1.53049379178087162865219983504396308, +1.41991481152009896077664663960022527, +1.85603929123364845707419307871982544, +1.78052658743941574702074539786880350, +1.94844335301803343652581140719845093, +1.06900877829413054397923490531808542, +1.97176211283065684018209329975637917, +1.20190298649971320163132630026967433, +1.53806561231254043139932127269002679, +1.18350300305391309043969989394567873, +1.58085573919107458957648563888184167, +1.39226093753922811908869559076880684, +1.40492821517202379848011361798335010, +1.84566493097631933611792118673679043, +1.97548708533882316630579875422926732, +1.53182291953393744000469513973363217, +1.46005628770257096198490132701454948, +1.63948319975660724985862376578098655, +1.19354261689713518006572047164238915, +1.80090027404254052152359384767612562, +1.47760312610296096653407675006172730, +1.09027207220265670966562225393329364, +1.84955289951161328309957814009761789, -0.288889491658085377958396691387739098E-33, -0.192592994438723585305597794258492732E-33, -0.288889491658085377958396691387739098E-33, +0.00000000000000000000000000000000000, +0.288889491658085377958396691387739098E-33, +0.00000000000000000000000000000000000, +0.962964972193617926527988971292463659E-34, +0.288889491658085377958396691387739098E-33, -0.192592994438723585305597794258492732E-33, -0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000, +0.192592994438723585305597794258492732E-33, +0.288889491658085377958396691387739098E-33, +0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34, +0.385185988877447170611195588516985464E-33, +0.192592994438723585305597794258492732E-33, -0.192592994438723585305597794258492732E-33, +0.962964972193617926527988971292463659E-34, +0.192592994438723585305597794258492732E-33
210reltol = sqrt(epsilon(1._TKC))
211reltol
212+0.138777878078144567552953958511352539E-16
213isClose(data, atad(1:size(data)), reltol = reltol)
214T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
215call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
216
217lenData = getUnifRand(5, 100)
218lenData
219+85
220data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
221data
222(+1.38420498, +0.198889971), (+1.41542673, +0.356700540), (+1.29562044, +0.289502323), (+1.57622492, +0.526236475), (+1.40780520, +0.913611829), (+1.32544422, +0.210458040), (+1.41523027, +0.224657774), (+1.72787547, +0.615595281), (+1.76652515, +0.925551951), (+1.98890662, +0.987847745), (+1.07026827, +0.370610654), (+1.00423849, +0.509009719), (+1.45175457, +0.722489893), (+1.71879458, +0.494766831), (+1.16429949, +0.490006566), (+1.10471296, +0.762447476), (+1.81469345, +0.773704052E-1), (+1.23335171, +0.364480913), (+1.71286988, +0.973331809), (+1.22278643, +0.367384255), (+1.92440808, +0.236506343), (+1.16934299, +0.768207073), (+1.52539814, +0.509478033), (+1.59360194, +0.795193851), (+1.26885092, +0.441436887), (+1.88194013, +0.150117159), (+1.93506563, +0.327618122), (+1.71413648, +0.139029741), (+1.74938560, +0.498494446), (+1.56515563, +0.919497609), (+1.80541945, +0.379684627), (+1.00028419, +0.638771057E-1), (+1.61131620, +0.545117974), (+1.34218001, +0.233375788), (+1.77827597, +0.518423319E-1), (+1.75901842, +0.768329799), (+1.75228238, +0.929232478), (+1.63450205, +0.448797464), (+1.16369462, +0.676772952), (+1.17647171, +0.194723904), (+1.49640322, +0.454961658), (+1.65759540, +0.898703396), (+1.41319394, +0.966307521E-1), (+1.39183760, +0.595421076), (+1.08900213, +0.919277310), (+1.20418692, +0.131618500), (+1.12886047, +0.566576242), (+1.42290831, +0.648749352), (+1.85386705, +0.407144427E-1), (+1.97580767, +0.293909490), (+1.50232506, +0.739300966), (+1.88155961, +0.925634980), (+1.83862925, +0.442836285E-1), (+1.13203299, +0.970287442), (+1.77566075, +0.957990468), (+1.35052609, +0.171659946), (+1.93756783, +0.140955508), (+1.43284166, +0.665861309), (+1.82796073, +0.350517988), (+1.13350415, +0.424004138), (+1.78990793, +0.778669417), (+1.33355594, +0.407154441), (+1.40154266, +0.278845072), (+1.30493474, +0.361163735), (+1.83119607, +0.161014915), (+1.55188799, +0.465714514), (+1.93900490, +0.496666551), (+1.96787143, +0.358953893), (+1.83015919, +0.119995117), (+1.04850054, +0.658066928), (+1.60258007, +0.285089076), (+1.44486713, +0.779429972), (+1.48491859, +0.377000153), (+1.66574883, +0.882492959), (+1.47733998, +0.332236171), (+1.77980876, +0.433002114), (+1.17955244, +0.823741078), (+1.69184756, +0.110902727), (+1.68716133, +0.761371493), (+1.43124890, +0.936775982), (+1.11384201, +0.893782616), (+1.46907711, +0.237058580), (+1.77214527, +0.985022426), (+1.77837920, +0.685823441), (+1.15075755, +0.990159333)
223
224atad = getFFTR(getFFTF(data))
225atad = atad / size(atad)
226atad
227(+1.38420498, +0.198889911), (+1.41542697, +0.356700659), (+1.29562008, +0.289502472), (+1.57622468, +0.526236415), (+1.40780509, +0.913611770), (+1.32544422, +0.210458055), (+1.41522992, +0.224657595), (+1.72787547, +0.615595162), (+1.76652527, +0.925552130), (+1.98890686, +0.987847984), (+1.07026815, +0.370610625), (+1.00423849, +0.509009719), (+1.45175481, +0.722490132), (+1.71879482, +0.494766891), (+1.16429949, +0.490006536), (+1.10471296, +0.762447536), (+1.81469333, +0.773706138E-1), (+1.23335183, +0.364480972), (+1.71286952, +0.973331690), (+1.22278643, +0.367384374), (+1.92440796, +0.236506402), (+1.16934299, +0.768207073), (+1.52539778, +0.509478033), (+1.59360170, +0.795193791), (+1.26885092, +0.441437006), (+1.88194025, +0.150117338), (+1.93506527, +0.327618361), (+1.71413636, +0.139029950), (+1.74938560, +0.498494625), (+1.56515539, +0.919497609), (+1.80541945, +0.379684567), (+1.00028431, +0.638770610E-1), (+1.61131620, +0.545117855), (+1.34218025, +0.233375669), (+1.77827573, +0.518422052E-1), (+1.75901842, +0.768329442), (+1.75228262, +0.929232240), (+1.63450193, +0.448797286), (+1.16369474, +0.676772714), (+1.17647171, +0.194723517), (+1.49640322, +0.454961598), (+1.65759540, +0.898703396), (+1.41319370, +0.966307223E-1), (+1.39183736, +0.595420957), (+1.08900213, +0.919277370), (+1.20418692, +0.131618291), (+1.12886024, +0.566576064), (+1.42290831, +0.648749352), (+1.85386682, +0.407144725E-1), (+1.97580743, +0.293909252), (+1.50232482, +0.739300728), (+1.88155961, +0.925634861), (+1.83862901, +0.442835987E-1), (+1.13203287, +0.970287085), (+1.77566051, +0.957990170), (+1.35052609, +0.171659738), (+1.93756759, +0.140955567), (+1.43284130, +0.665861189), (+1.82796049, +0.350517869), (+1.13350368, +0.424003959), (+1.78990769, +0.778669417), (+1.33355582, +0.407154232), (+1.40154243, +0.278845012), (+1.30493450, +0.361163676), (+1.83119619, +0.161014974), (+1.55188799, +0.465714514), (+1.93900478, +0.496666342), (+1.96787131, +0.358953714), (+1.83015931, +0.119994998), (+1.04850054, +0.658066869), (+1.60257995, +0.285088837), (+1.44486737, +0.779429853), (+1.48491859, +0.377000242), (+1.66574860, +0.882493079), (+1.47733974, +0.332236201), (+1.77980840, +0.433002114), (+1.17955232, +0.823741138), (+1.69184756, +0.110902742), (+1.68716145, +0.761371493), (+1.43124866, +0.936776221), (+1.11384189, +0.893782496), (+1.46907699, +0.237058505), (+1.77214515, +0.985022068), (+1.77837920, +0.685823262), (+1.15075755, +0.990159333), (+0.178813934E-6, -0.178813934E-6), (+0.298023224E-6, +0.119209290E-6), (+0.357627869E-6, +0.149011612E-6), (-0.119209290E-6, -0.253319740E-6), (-0.119209290E-6, -0.238418579E-6), (+0.596046448E-7, -0.119209290E-6), (-0.119209290E-6, -0.156462193E-6), (-0.178813934E-6, -0.104308128E-6), (+0.119209290E-6, -0.268220901E-6), (-0.119209290E-6, -0.149011612E-7), (-0.119209290E-6, -0.372529030E-8), (+0.00000000, +0.149011612E-6), (+0.238418579E-6, +0.596046448E-7), (+0.119209290E-6, +0.275671482E-6), (+0.596046448E-7, +0.298023224E-6), (-0.178813934E-6, +0.298023224E-6), (+0.596046448E-7, +0.283122063E-6), (+0.00000000, +0.327825546E-6), (+0.00000000, +0.268220901E-6), (-0.596046448E-7, -0.447034836E-7), (+0.298023224E-6, -0.596046448E-7), (+0.00000000, +0.298023224E-7), (+0.00000000, +0.119209290E-6), (-0.238418579E-6, +0.596046448E-7), (+0.178813934E-6, -0.223517418E-7), (-0.178813934E-6, +0.178813934E-6), (-0.596046448E-7, +0.894069672E-7), (+0.00000000, +0.298023224E-7), (+0.238418579E-6, +0.104308128E-6), (+0.596046448E-7, +0.268220901E-6), (+0.596046448E-7, +0.894069672E-7), (-0.596046448E-7, +0.298023224E-7), (+0.178813934E-6, +0.149011612E-6), (-0.238418579E-6, +0.327825546E-6), (-0.596046448E-7, +0.357627869E-6), (+0.119209290E-6, +0.00000000), (+0.417232513E-6, -0.178813934E-6), (-0.596046448E-7, +0.134110451E-6), (+0.596046448E-7, +0.596046448E-7), (-0.596046448E-7, +0.596046448E-7), (+0.357627869E-6, +0.119209290E-6), (-0.178813934E-6, +0.193715096E-6), (+0.00000000, +0.596046448E-7)
228reltol = sqrt(epsilon(1._TKC))
229reltol
230+0.345266977E-3
231isClose(data, atad(1:size(data)), reltol = reltol)
232T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
233call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
234
235lenData = getUnifRand(5, 100)
236lenData
237+77
238data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
239data
240(+1.8108182671994402, +0.33276015633703937), (+1.9031573266674000, +0.66763066254331127), (+1.2887842891381946, +0.23122410342516742), (+1.9920690606734190, +0.27337318492298035), (+1.0918186989660104, +0.10101284569952340), (+1.1962699186458443, +0.70924568431877688), (+1.5906055617729040, +0.22468226704605165), (+1.6070377659770472, +0.69633096845833153), (+1.4772857211211137, +0.92546580167939463), (+1.2969584584922753, +0.64996585881046121), (+1.8026654228074745, +0.67174075880538531), (+1.2977914518930955, +0.94339053913960380), (+1.3512653322407688, +0.72916429724588783E-2), (+1.3730804227044002, +0.87215896173878293), (+1.4773009652721174, +0.81123421908611137), (+1.3208774288722112, +0.88050664763409725), (+1.2382451984270464, +0.91009950995262212E-1), (+1.9342085021848465, +0.51964279122528501), (+1.2033629313138960, +0.36849883559198615), (+1.7201595524022064, +0.68745957333815688), (+1.1466644585125274, +0.41411148411198595), (+1.0697406756017727, +0.71729303633654928E-1), (+1.0775147064956210, +0.49437446417882225), (+1.6139202741394012, +0.39096207915116177), (+1.0271154998570542, +0.42697659629234330E-1), (+1.6209049812214480, +0.31211368888612312), (+1.5139007798514164, +0.61141457335811678), (+1.2126783171644284, +0.12898718295687539), (+1.3728926447645664, +0.86002821361805692), (+1.7974025209784192, +0.77821287407168016), (+1.7455477074668591, +0.90930067459266517), (+1.9359343471143222, +0.13617605873157301), (+1.3343662744468241, +0.88059523941905504), (+1.4599835312196889, +0.25621721467715119), (+1.7664738259891113, +0.78175330249603492), (+1.0918245342738224, +0.83698074140177314), (+1.9562540064729470, +0.85010528044228295), (+1.2167755524962118, +0.92408307554717195), (+1.1588647597706934, +0.88484218175858531), (+1.2223584901084248, +0.58592221383939536), (+1.0781203704129187, +0.39081419597799016), (+1.0243820186574055, +0.29803422804965451), (+1.5944574555462550, +0.86858576945868071E-1), (+1.9082278502942720, +0.47921096070496083), (+1.0233519474143806, +0.81171567458145344), (+1.8328985048024995, +0.77069344934918371), (+1.4222344018174233, +0.39749001955041519), (+1.6473837145360624, +0.85595738523517739), (+1.4113420775978616, +0.65917624376082518), (+1.9190330969360292, +0.55319569675550628E-1), (+1.3010975585452991, +0.94920948287130469), (+1.5129048086606645, +0.66797879827792617), (+1.9945226421927296, +0.54327488300830207), (+1.2693337075168691, +0.55884529561912766), (+1.0773326241573924, +0.37296292495310857E-1), (+1.1829578222057306, +0.69472321494463052), (+1.2136691084542282, +0.13233418898282667E-1), (+1.8330233914167517, +0.26116880797387099), (+1.2023368335123106, +0.22710326825564808), (+1.7394968959989985, +0.18864554317823068), (+1.5247900152055329, +0.18294305299100699), (+1.0013146757058389, +0.18699464239411911), (+1.2948267010301115, +0.40440356786645026), (+1.3424142260098189, +0.96511765957897078), (+1.1555869378091690, +0.40199215122558851), (+1.8119406274545977, +0.65235265855588687), (+1.8727983293406427, +0.91671138822906173), (+1.9903174160856199, +0.50162730635747121), (+1.4183289663646770, +0.65771645666993395), (+1.4163237076217745, +0.57844134740316211), (+1.1837792359681512, +0.80741777424696570), (+1.3330331550541692, +0.38796579246496066), (+1.9962618601394020, +0.75701596689228434), (+1.2124758939102602, +0.55454525881162942), (+1.4555671475500911, +0.23214802146328317E-1), (+1.5603542401788593, +0.45049729434440111), (+1.5706367886795665, +0.94291792739460745)
241
242atad = getFFTR(getFFTF(data))
243atad = atad / size(atad)
244atad
245(+1.8108182671994402, +0.33276015633703931), (+1.9031573266674002, +0.66763066254331160), (+1.2887842891381944, +0.23122410342516769), (+1.9920690606734193, +0.27337318492298068), (+1.0918186989660101, +0.10101284569952362), (+1.1962699186458441, +0.70924568431877733), (+1.5906055617729036, +0.22468226704605165), (+1.6070377659770472, +0.69633096845833176), (+1.4772857211211141, +0.92546580167939463), (+1.2969584584922753, +0.64996585881046132), (+1.8026654228074745, +0.67174075880538542), (+1.2977914518930953, +0.94339053913960380), (+1.3512653322407688, +0.72916429724593779E-2), (+1.3730804227044002, +0.87215896173878327), (+1.4773009652721170, +0.81123421908611137), (+1.3208774288722112, +0.88050664763409747), (+1.2382451984270462, +0.91009950995262406E-1), (+1.9342085021848470, +0.51964279122528523), (+1.2033629313138960, +0.36849883559198615), (+1.7201595524022060, +0.68745957333815710), (+1.1466644585125274, +0.41411148411198601), (+1.0697406756017727, +0.71729303633654790E-1), (+1.0775147064956205, +0.49437446417882214), (+1.6139202741394012, +0.39096207915116177), (+1.0271154998570544, +0.42697659629234219E-1), (+1.6209049812214480, +0.31211368888612334), (+1.5139007798514159, +0.61141457335811666), (+1.2126783171644289, +0.12898718295687547), (+1.3728926447645662, +0.86002821361805692), (+1.7974025209784190, +0.77821287407168016), (+1.7455477074668584, +0.90930067459266484), (+1.9359343471143218, +0.13617605873157310), (+1.3343662744468241, +0.88059523941905482), (+1.4599835312196894, +0.25621721467715103), (+1.7664738259891113, +0.78175330249603459), (+1.0918245342738224, +0.83698074140177314), (+1.9562540064729470, +0.85010528044228262), (+1.2167755524962121, +0.92408307554717184), (+1.1588647597706934, +0.88484218175858498), (+1.2223584901084250, +0.58592221383939513), (+1.0781203704129187, +0.39081419597798972), (+1.0243820186574057, +0.29803422804965418), (+1.5944574555462547, +0.86858576945867849E-1), (+1.9082278502942718, +0.47921096070496072), (+1.0233519474143806, +0.81171567458145322), (+1.8328985048024995, +0.77069344934918349), (+1.4222344018174231, +0.39749001955041513), (+1.6473837145360624, +0.85595738523517695), (+1.4113420775978616, +0.65917624376082473), (+1.9190330969360292, +0.55319569675550531E-1), (+1.3010975585452991, +0.94920948287130447), (+1.5129048086606642, +0.66797879827792583), (+1.9945226421927293, +0.54327488300830140), (+1.2693337075168691, +0.55884529561912721), (+1.0773326241573922, +0.37296292495310662E-1), (+1.1829578222057309, +0.69472321494462996), (+1.2136691084542282, +0.13233418898282671E-1), (+1.8330233914167515, +0.26116880797387076), (+1.2023368335123104, +0.22710326825564764), (+1.7394968959989980, +0.18864554317823057), (+1.5247900152055327, +0.18294305299100652), (+1.0013146757058389, +0.18699464239411881), (+1.2948267010301109, +0.40440356786644971), (+1.3424142260098189, +0.96511765957896989), (+1.1555869378091690, +0.40199215122558835), (+1.8119406274545977, +0.65235265855588687), (+1.8727983293406423, +0.91671138822906206), (+1.9903174160856201, +0.50162730635747133), (+1.4183289663646772, +0.65771645666993384), (+1.4163237076217745, +0.57844134740316178), (+1.1837792359681514, +0.80741777424696537), (+1.3330331550541694, +0.38796579246496032), (+1.9962618601394020, +0.75701596689228423), (+1.2124758939102600, +0.55454525881162930), (+1.4555671475500911, +0.23214802146328262E-1), (+1.5603542401788586, +0.45049729434440094), (+1.5706367886795665, +0.94291792739460711), (+0.11102230246251565E-15, -0.27755575615628914E-15), (+0.22204460492503131E-15, -0.33306690738754696E-15), (+0.44408920985006262E-15, -0.55511151231257827E-15), (+0.22204460492503131E-15, -0.13877787807814457E-15), (+0.33306690738754696E-15, -0.16653345369377348E-15), (-0.11102230246251565E-15, +0.11102230246251565E-15), (+0.0000000000000000, -0.11102230246251565E-15), (+0.55511151231257827E-15, -0.55511151231257827E-16), (+0.0000000000000000, +0.27755575615628914E-16), (+0.11102230246251565E-15, +0.27755575615628914E-16), (+0.55511151231257827E-15, -0.83266726846886741E-16), (+0.0000000000000000, -0.22551405187698492E-15), (+0.22204460492503131E-15, -0.30531133177191805E-15), (+0.11102230246251565E-15, +0.55511151231257827E-16), (-0.11102230246251565E-15, -0.13877787807814457E-15), (+0.22204460492503131E-15, +0.11102230246251565E-15), (+0.33306690738754696E-15, +0.11102230246251565E-15), (+0.22204460492503131E-15, +0.16653345369377348E-15), (+0.66613381477509392E-15, +0.24980018054066022E-15), (-0.44408920985006262E-15, +0.55511151231257827E-16), (+0.11102230246251565E-15, +0.55511151231257827E-16), (-0.33306690738754696E-15, +0.38857805861880479E-15), (-0.55511151231257827E-15, +0.55511151231257827E-16), (+0.0000000000000000, +0.49960036108132044E-15), (-0.33306690738754696E-15, +0.11102230246251565E-15), (-0.22204460492503131E-15, +0.22204460492503131E-15), (+0.22204460492503131E-15, +0.11102230246251565E-15), (-0.22204460492503131E-15, -0.11102230246251565E-15), (+0.0000000000000000, -0.30531133177191805E-15), (+0.0000000000000000, +0.22204460492503131E-15), (-0.22204460492503131E-15, +0.11102230246251565E-15), (-0.11102230246251565E-15, +0.22204460492503131E-15), (+0.11102230246251565E-15, +0.27755575615628914E-15), (+0.0000000000000000, +0.55511151231257827E-16), (+0.22204460492503131E-15, +0.27755575615628914E-15), (+0.22204460492503131E-15, +0.33306690738754696E-15), (+0.33306690738754696E-15, +0.12490009027033011E-15), (+0.0000000000000000, +0.22204460492503131E-15), (-0.22204460492503131E-15, +0.33306690738754696E-15), (+0.22204460492503131E-15, +0.77715611723760958E-15), (-0.11102230246251565E-15, +0.66613381477509392E-15), (+0.0000000000000000, +0.47184478546569153E-15), (+0.22204460492503131E-15, +0.55511151231257827E-15), (+0.11102230246251565E-15, +0.22551405187698492E-15), (+0.44408920985006262E-15, +0.36082248300317588E-15), (+0.0000000000000000, +0.24980018054066022E-15), (+0.11102230246251565E-15, +0.27755575615628914E-15), (+0.33306690738754696E-15, +0.69388939039072284E-15), (+0.44408920985006262E-15, +0.74940054162198066E-15), (-0.11102230246251565E-15, +0.77715611723760958E-15), (+0.44408920985006262E-15, +0.11657341758564144E-14)
246reltol = sqrt(epsilon(1._TKC))
247reltol
248+0.14901161193847656E-7
249isClose(data, atad(1:size(data)), reltol = reltol)
250T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
251call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
252
253lenData = getUnifRand(5, 100)
254lenData
255+61
256data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
257data
258(+1.90859043208538215511277898366481152, +0.202918061120346007763750399044649471), (+1.84420961118878305547590114176545518, +0.790109303198559516080100822922696736), (+1.17376044795945438007484725417255042, +0.638304700535355905456582448003202131), (+1.72821118007081426202492495880643187, +0.261096258143489951892337174158810043E-1), (+1.27186495437587251714358572127299264, +0.959096962284148418038313989415861037), (+1.00810876361734283257029970533758639, +0.928311071204150857368753646289603281), (+1.89478738545117040753484112757421170, +0.374523858314789298046077794710714444), (+1.88888363098440514054367318994628915, +0.965906658522227464096796420341115497), (+1.14964588492149367918424356132459419, +0.707616577409421976925584831184296371E-1), (+1.41157959519088461463149854325924294, +0.270703811350773891090754817416800394), (+1.28627638708175891165929653377398274, +0.954157435144042962617315229657430829), (+1.31873419744391705983736823137116537, +0.115334284622162329567604374991712483), (+1.37446304118323233261355185844553856, +0.241779412624706772596943432367371870), (+1.14392721297832389516973056777920161, +0.494907420882315996209828157008001987), (+1.58980170557471475890754533257835730, +0.787045309125105249524437223639741295), (+1.90295792460617384100773293550485700, +0.912416384608895010675473830424365743), (+1.68663362760415867740992300999100486, +0.506322747234004603090539649525047582), (+1.35500714928108254140759828051061646, +0.691523188951503294476857253982221386), (+1.15702971283094173993578887904404960, +0.818937778861576928322936857923992156), (+1.11840807576208920045963226475457406, +0.354680993727282218623398543622073124E-1), (+1.10015265331235768066109542590562803, +0.147047059824988374170826607385525983), (+1.46720535561931644367015391356599242, +0.305968713349992872081390620724492565), (+1.72944712145862099015317751867836035, +0.108893674382313967312646735003520989), (+1.22022126814723108893516044326853654, +0.818816461492968041731733461061626929), (+1.43840718130380247230809841740550646, +0.295602055178410744583390674638312763), (+1.24832709244184806773548974978112660, +0.881267779549253594032553327627413022), (+1.74497561200518296567958245460626424, +0.580429766159757829518799940554166235), (+1.82287987264021504221455064548703868, +0.158442658469061746044407274705357026), (+1.69477717484909545884628055453715012, +0.374299350304927607833154301271592655), (+1.71688202092755187077575349768186057, +0.255880304602847295956648035084549169), (+1.41904818964913755882671695452294273, +0.763835886114423651212953924144004708), (+1.08981564059226601336468625718685362, +0.737196592637974788561072875773849733), (+1.57273567013442355673499201647730892, +0.782158236556559213432751537041977829), (+1.81382367153183099624643588462938925, +0.475114801803169373501233240751359226), (+1.26072346759710037771882754792501600, +0.925060407564143413793024208156975791), (+1.59244860817896531243715114171574404, +0.473067255705780634590676164971813958), (+1.29261274378390730301578452206123832, +0.940093200563855661781535574498225110), (+1.25701835861913554792106178327707155, +0.426216351739026132489912129917163707E-1), (+1.71780615592121264125478507194577475, +0.417384096946121773772132808661031360), (+1.09823430613034148051148358632024842, +0.959693755542663289266380777706489557), (+1.43888324438901031073472237602264174, +0.819068709150183657076551830331780981), (+1.62510645043065639040249544899760511, +0.314410124733537232818042955422686623), (+1.72849415731061926581291446060576277, +0.329331404030522920737067282491218177), (+1.75257123795602327824468451139152215, +0.581384826573344082350189939819547600), (+1.14521238900236389664615518970870925, +0.449172256297967539787518136966648108), (+1.20765773685248386287388119559037114, +0.397127162956301458316725751888893808E-1), (+1.27415999530248010370606597362484340, +0.780351119331722308962844341063428281), (+1.46799489995183938782056590271885159, +0.590012252341705967903544871743190585), (+1.55403081545457019340241199904780845, +0.411264011671841450633689660057124869), (+1.08641903903013890444629620029082086, +0.274459643028129273845520007255857404), (+1.18739350022641303887674348002127735, +0.978362408253207255067109103423644071), (+1.94398390460013400703865441687117589, +0.326377638756806153569759654411038012E-1), (+1.85000517029356442895498325807089154, +0.849023288588869991467569810481889468), (+1.47573233800803595328106568462904318, +0.623665705685358396709584124351226035), (+1.58830824672556767746124810497023963, +0.335772357081061674219918789370242813), (+1.43151599056149689610802284208823621, +0.973450392863939262072516235662352255), (+1.45889578030373129632185327710860730, +0.931702536954456108088600024396154552), (+1.02541496842770739457712527580884429, +0.242470264718779044640243562337779029), (+1.20688422436175122091623848618857000, +0.722948372485667186207171808859849649), (+1.24345398176443491338749931134501100, +0.826080794219185787883933129268402540), (+1.90398535200407862848835696388767777, +0.107749104820843604311745761275171116)
259
260atad = getFFTR(getFFTF(data))
261atad = atad / size(atad)
262atad
263(+1.90859043208538215511277898366481152, +0.202918061120346007763750399044649471), (+1.84420961118878305547590114176545537, +0.790109303198559516080100822922696640), (+1.17376044795945438007484725417255042, +0.638304700535355905456582448003202131), (+1.72821118007081426202492495880643148, +0.261096258143489951892337174158811729E-1), (+1.27186495437587251714358572127299245, +0.959096962284148418038313989415861134), (+1.00810876361734283257029970533758696, +0.928311071204150857368753646289603281), (+1.89478738545117040753484112757421170, +0.374523858314789298046077794710714203), (+1.88888363098440514054367318994628972, +0.965906658522227464096796420341115208), (+1.14964588492149367918424356132459419, +0.707616577409421976925584831184296371E-1), (+1.41157959519088461463149854325924294, +0.270703811350773891090754817416800394), (+1.28627638708175891165929653377398274, +0.954157435144042962617315229657430540), (+1.31873419744391705983736823137116556, +0.115334284622162329567604374991712580), (+1.37446304118323233261355185844553837, +0.241779412624706772596943432367371630), (+1.14392721297832389516973056777920180, +0.494907420882315996209828157008002083), (+1.58980170557471475890754533257835653, +0.787045309125105249524437223639741680), (+1.90295792460617384100773293550485700, +0.912416384608895010675473830424366128), (+1.68663362760415867740992300999100467, +0.506322747234004603090539649525047582), (+1.35500714928108254140759828051061666, +0.691523188951503294476857253982221290), (+1.15702971283094173993578887904404960, +0.818937778861576928322936857923992059), (+1.11840807576208920045963226475457406, +0.354680993727282218623398543622071559E-1), (+1.10015265331235768066109542590562764, +0.147047059824988374170826607385525886), (+1.46720535561931644367015391356599300, +0.305968713349992872081390620724492373), (+1.72944712145862099015317751867836016, +0.108893674382313967312646735003520844), (+1.22022126814723108893516044326853674, +0.818816461492968041731733461061627025), (+1.43840718130380247230809841740550627, +0.295602055178410744583390674638312860), (+1.24832709244184806773548974978112679, +0.881267779549253594032553327627412926), (+1.74497561200518296567958245460626444, +0.580429766159757829518799940554166139), (+1.82287987264021504221455064548703849, +0.158442658469061746044407274705357026), (+1.69477717484909545884628055453714993, +0.374299350304927607833154301271592463), (+1.71688202092755187077575349768186096, +0.255880304602847295956648035084548977), (+1.41904818964913755882671695452294253, +0.763835886114423651212953924144004708), (+1.08981564059226601336468625718685362, +0.737196592637974788561072875773849444), (+1.57273567013442355673499201647730892, +0.782158236556559213432751537041977829), (+1.81382367153183099624643588462938944, +0.475114801803169373501233240751359274), (+1.26072346759710037771882754792501600, +0.925060407564143413793024208156975599), (+1.59244860817896531243715114171574423, +0.473067255705780634590676164971813862), (+1.29261274378390730301578452206123813, +0.940093200563855661781535574498225206), (+1.25701835861913554792106178327707194, +0.426216351739026132489912129917163707E-1), (+1.71780615592121264125478507194577456, +0.417384096946121773772132808661031311), (+1.09823430613034148051148358632024881, +0.959693755542663289266380777706489653), (+1.43888324438901031073472237602264174, +0.819068709150183657076551830331780884), (+1.62510645043065639040249544899760511, +0.314410124733537232818042955422686623), (+1.72849415731061926581291446060576257, +0.329331404030522920737067282491218129), (+1.75257123795602327824468451139152195, +0.581384826573344082350189939819547407), (+1.14521238900236389664615518970870906, +0.449172256297967539787518136966647868), (+1.20765773685248386287388119559037133, +0.397127162956301458316725751888891159E-1), (+1.27415999530248010370606597362484282, +0.780351119331722308962844341063428281), (+1.46799489995183938782056590271885140, +0.590012252341705967903544871743190585), (+1.55403081545457019340241199904780826, +0.411264011671841450633689660057124869), (+1.08641903903013890444629620029082125, +0.274459643028129273845520007255857404), (+1.18739350022641303887674348002127735, +0.978362408253207255067109103423643975), (+1.94398390460013400703865441687117589, +0.326377638756806153569759654411038614E-1), (+1.85000517029356442895498325807089154, +0.849023288588869991467569810481889468), (+1.47573233800803595328106568462904356, +0.623665705685358396709584124351226324), (+1.58830824672556767746124810497023943, +0.335772357081061674219918789370242909), (+1.43151599056149689610802284208823640, +0.973450392863939262072516235662352352), (+1.45889578030373129632185327710860749, +0.931702536954456108088600024396154552), (+1.02541496842770739457712527580884448, +0.242470264718779044640243562337779029), (+1.20688422436175122091623848618857019, +0.722948372485667186207171808859849456), (+1.24345398176443491338749931134501120, +0.826080794219185787883933129268402443), (+1.90398535200407862848835696388767758, +0.107749104820843604311745761275171044), (-0.288889491658085377958396691387739098E-33, -0.216667118743564033468797518540804323E-33), (-0.577778983316170755916793382775478196E-33, +0.962964972193617926527988971292463659E-34), (+0.192592994438723585305597794258492732E-33, -0.144444745829042688979198345693869549E-33)
264reltol = sqrt(epsilon(1._TKC))
265reltol
266+0.138777878078144567552953958511352539E-16
267isClose(data, atad(1:size(data)), reltol = reltol)
268T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
269call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
270
271lenData = getUnifRand(5, 100)
272lenData
273+92
274data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
275data
276+1.99334657, +1.03358030, +1.14313459, +1.70554245, +1.41609383, +1.73236823, +1.17040491, +1.09857213, +1.46022928, +1.62347281, +1.21071219, +1.30830169, +1.60885227, +1.97432148, +1.14220762, +1.03905106, +1.80974960, +1.13985062, +1.49292755, +1.16303349, +1.18838239, +1.65394497, +1.16171670, +1.67946625, +1.30335748, +1.17873931, +1.64370239, +1.18095374, +1.88392830, +1.99409103, +1.18466604, +1.58313382, +1.73426890, +1.81395292, +1.80742466, +1.82743561, +1.26889718, +1.20195055, +1.02748179, +1.79346871, +1.79224324, +1.90279508, +1.13950849, +1.56662595, +1.97842371, +1.92791820, +1.00635493, +1.70638967, +1.08876634, +1.56164992, +1.08821797, +1.48168647, +1.76614666, +1.36851358, +1.02172470, +1.01802397, +1.58720016, +1.55820060, +1.21346295, +1.77082241, +1.25184059, +1.11576486, +1.80537033, +1.46965063, +1.83304191, +1.21879315, +1.17047668, +1.91050434, +1.88286471, +1.15694726, +1.65754151, +1.87256026, +1.43773675, +1.16808295, +1.48242116, +1.21265149, +1.87225163, +1.05717754, +1.11161768, +1.75327623, +1.65494096, +1.68158937, +1.99192142, +1.43991935, +1.26357746, +1.76182508, +1.27051544, +1.88007379, +1.84490037, +1.56371903, +1.11175251, +1.77683520
277
278atad = getFFTR(getFFTF(data))
279atad = atad * 2 / size(atad)
280atad
281+1.99334669, +1.03358006, +1.14313436, +1.70554233, +1.41609359, +1.73236799, +1.17040455, +1.09857190, +1.46022940, +1.62347317, +1.21071196, +1.30830169, +1.60885239, +1.97432137, +1.14220726, +1.03905094, +1.80974972, +1.13985085, +1.49292743, +1.16303349, +1.18838239, +1.65394509, +1.16171646, +1.67946601, +1.30335736, +1.17873967, +1.64370203, +1.18095398, +1.88392782, +1.99409127, +1.18466580, +1.58313382, +1.73426914, +1.81395292, +1.80742455, +1.82743549, +1.26889741, +1.20195055, +1.02748179, +1.79346848, +1.79224348, +1.90279531, +1.13950849, +1.56662583, +1.97842383, +1.92791831, +1.00635493, +1.70638967, +1.08876646, +1.56164980, +1.08821797, +1.48168635, +1.76614666, +1.36851382, +1.02172470, +1.01802397, +1.58720016, +1.55820084, +1.21346259, +1.77082229, +1.25184047, +1.11576462, +1.80537009, +1.46965027, +1.83304214, +1.21879315, +1.17047668, +1.91050434, +1.88286495, +1.15694714, +1.65754163, +1.87255991, +1.43773699, +1.16808319, +1.48242092, +1.21265125, +1.87225175, +1.05717754, +1.11161768, +1.75327599, +1.65494096, +1.68158937, +1.99192131, +1.43991899, +1.26357770, +1.76182497, +1.27051568, +1.88007355, +1.84490013, +1.56371915, +1.11175227, +1.77683473, +0.417232513E-6, +0.00000000, +0.357627869E-6, +0.00000000, +0.596046448E-7, -0.596046448E-7, +0.00000000, -0.178813934E-6, +0.357627869E-6, +0.298023224E-6, -0.596046448E-7, +0.178813934E-6, +0.178813934E-6, +0.178813934E-6, +0.596046448E-7, +0.596046448E-7, +0.00000000, +0.00000000, -0.119209290E-6, +0.238418579E-6, +0.476837158E-6, +0.596046448E-7, +0.00000000, +0.596046448E-7, +0.596046448E-7, +0.417232513E-6, -0.596046448E-7, +0.238418579E-6, +0.298023224E-6, +0.00000000, +0.178813934E-6, +0.00000000, +0.238418579E-6, +0.417232513E-6, +0.596046448E-7, +0.298023224E-6
282reltol = sqrt(epsilon(1._TKC))
283reltol
284+0.345266977E-3
285isClose(data, atad(1:size(data)), reltol = reltol)
286T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
287call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
288
289lenData = getUnifRand(5, 100)
290lenData
291+53
292data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
293data
294+1.5289974699391269, +1.5546782397314522, +1.9249491083438219, +1.5136993765778528, +1.6054198344386166, +1.5253409863678800, +1.2905652592792416, +1.8694516231105545, +1.0654142447332200, +1.7661593679671597, +1.7526764049191428, +1.1480083623207613, +1.7830065400816451, +1.8038515114858042, +1.5506494410875471, +1.6037190228864784, +1.3532952311342954, +1.9384788839946392, +1.7963630811324229, +1.4157183897491721, +1.1623361493506505, +1.0355452337674360, +1.8096412203825798, +1.2452800265083266, +1.0431486752977894, +1.5008950452899890, +1.7725719581125872, +1.3384526595407968, +1.7070959001098287, +1.2162410162192914, +1.9669437498958571, +1.7057133732732548, +1.7046375518436045, +1.8333332724882629, +1.4476860413045030, +1.5332594584112564, +1.9409107500070528, +1.8174745088879751, +1.7348151019812770, +1.8430538462609354, +1.8278620994645753, +1.5367674977100312, +1.2389903938324776, +1.6143046978952578, +1.6048042045087629, +1.9532325199140361, +1.6878224042555310, +1.4486404587096695, +1.4398186226367331, +1.5289571979305561, +1.3803280822862156, +1.6326609519096711, +1.5403788265146243
295
296atad = getFFTR(getFFTF(data))
297atad = atad * 2 / size(atad)
298atad
299+1.5289974699391269, +1.5546782397314525, +1.9249491083438215, +1.5136993765778530, +1.6054198344386164, +1.5253409863678793, +1.2905652592792416, +1.8694516231105547, +1.0654142447332193, +1.7661593679671594, +1.7526764049191423, +1.1480083623207613, +1.7830065400816444, +1.8038515114858040, +1.5506494410875469, +1.6037190228864782, +1.3532952311342950, +1.9384788839946392, +1.7963630811324223, +1.4157183897491721, +1.1623361493506508, +1.0355452337674356, +1.8096412203825794, +1.2452800265083264, +1.0431486752977892, +1.5008950452899890, +1.7725719581125865, +1.3384526595407964, +1.7070959001098278, +1.2162410162192914, +1.9669437498958566, +1.7057133732732543, +1.7046375518436043, +1.8333332724882632, +1.4476860413045023, +1.5332594584112564, +1.9409107500070526, +1.8174745088879747, +1.7348151019812770, +1.8430538462609356, +1.8278620994645747, +1.5367674977100312, +1.2389903938324776, +1.6143046978952573, +1.6048042045087627, +1.9532325199140359, +1.6878224042555310, +1.4486404587096688, +1.4398186226367327, +1.5289571979305561, +1.3803280822862154, +1.6326609519096706, +1.5403788265146243, -0.33306690738754696E-15, +0.77715611723760958E-15, +0.11102230246251565E-15, -0.11102230246251565E-15, +0.44408920985006262E-15, +0.88817841970012523E-15, +0.88817841970012523E-15, +0.33306690738754696E-15, +0.44408920985006262E-15, +0.77715611723760958E-15, +0.88817841970012523E-15
300reltol = sqrt(epsilon(1._TKC))
301reltol
302+0.14901161193847656E-7
303isClose(data, atad(1:size(data)), reltol = reltol)
304T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
305call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
306
307lenData = getUnifRand(5, 100)
308lenData
309+66
310data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
311data
312+1.80375593001723960869370002419278860, +1.90964470152059898092745833836255585, +1.79785851246509648563655177509375776, +1.45449541423447699012179461191734738, +1.48268893588998857114963502738091372, +1.42995048180892267490366341883354918, +1.97068312485084879821836510150092303, +1.03545281882462001651254039638118321, +1.76154717437470388334200966859514978, +1.71944969893382194053392743628046561, +1.63425649156965716271571094375109810, +1.12238809132494805600006915530789766, +1.45153506692043899639600542741886265, +1.28011985137864233684622007340410592, +1.65625675310767455115206440657493327, +1.62515628161461352481122582460255547, +1.45187045295837515736323921582840438, +1.23424121659440509871369390355346067, +1.50858297415425290040231465748577037, +1.39556752940063577333240456775664361, +1.11866933449347147486790796282445237, +1.09322656479073428877970441610155944, +1.89714422139656842586100911660701218, +1.36766198370462455087838713538933521, +1.43806580731411144025021803424195284, +1.86632935990791392898239073063504987, +1.59876973911614781935428895924716275, +1.30952840971658023973556794271943824, +1.51427267830656233195799821562717256, +1.67519692557078193693849845069081123, +1.23413857268170095344135497124982307, +1.94425611812235459930534286733385854, +1.56399356060737398425622580199810366, +1.98879923074082209341079593145049947, +1.95042208279292590134864687436458777, +1.55311513279994645715474121688974367, +1.58334271352655278881075718434419558, +1.72865543912750576966199176180223836, +1.75947385871189319893540342264685223, +1.43751913049645721468928190319479840, +1.36279207766627515639573466900201322, +1.44771814973405227617987816946276665, +1.48500338465965231116366898490389188, +1.22920522549863110965014322386164767, +1.07947760703161837991701896714657278, +1.55025550039816779361285575307799894, +1.73054593480494186551804233601159658, +1.44627310610809235040469315901524919, +1.54647597761690494048739078503293661, +1.67938846113628634271216304793762526, +1.71917114604380667430711753673140423, +1.28414422061131242285836191013934722, +1.28103687072320960802557624038400771, +1.67823295630616925257817931572821003, +1.24867846741565256675819091462462260, +1.75095243467674963174960549181735737, +1.27290623595425868166927619954206292, +1.19187873588968751839772850216082310, +1.51347675296311440691954313156049459, +1.41428927432540960978149412308176231, +1.87663954632860999444114390521324001, +1.85615776611097765350165176563365641, +1.23683881845992478254632789260304054, +1.77275658151466274078278988332386660, +1.87804419832448381091983864011581030, +1.66759746595238888195652208413529136
313
314atad = getFFTR(getFFTF(data))
315atad = atad * 2 / size(atad)
316atad
317+1.80375593001723960869370002419278899, +1.90964470152059898092745833836255642, +1.79785851246509648563655177509375814, +1.45449541423447699012179461191734815, +1.48268893588998857114963502738091353, +1.42995048180892267490366341883354899, +1.97068312485084879821836510150092303, +1.03545281882462001651254039638118379, +1.76154717437470388334200966859515055, +1.71944969893382194053392743628046599, +1.63425649156965716271571094375109887, +1.12238809132494805600006915530789804, +1.45153506692043899639600542741886323, +1.28011985137864233684622007340410592, +1.65625675310767455115206440657493404, +1.62515628161461352481122582460255586, +1.45187045295837515736323921582840438, +1.23424121659440509871369390355346087, +1.50858297415425290040231465748577056, +1.39556752940063577333240456775664400, +1.11866933449347147486790796282445237, +1.09322656479073428877970441610155944, +1.89714422139656842586100911660701199, +1.36766198370462455087838713538933559, +1.43806580731411144025021803424195284, +1.86632935990791392898239073063505025, +1.59876973911614781935428895924716294, +1.30952840971658023973556794271943901, +1.51427267830656233195799821562717256, +1.67519692557078193693849845069081143, +1.23413857268170095344135497124982269, +1.94425611812235459930534286733385893, +1.56399356060737398425622580199810405, +1.98879923074082209341079593145049947, +1.95042208279292590134864687436458816, +1.55311513279994645715474121688974387, +1.58334271352655278881075718434419558, +1.72865543912750576966199176180223817, +1.75947385871189319893540342264685223, +1.43751913049645721468928190319479840, +1.36279207766627515639573466900201361, +1.44771814973405227617987816946276684, +1.48500338465965231116366898490389226, +1.22920522549863110965014322386164806, +1.07947760703161837991701896714657316, +1.55025550039816779361285575307799855, +1.73054593480494186551804233601159697, +1.44627310610809235040469315901524919, +1.54647597761690494048739078503293700, +1.67938846113628634271216304793762487, +1.71917114604380667430711753673140442, +1.28414422061131242285836191013934722, +1.28103687072320960802557624038400790, +1.67823295630616925257817931572820984, +1.24867846741565256675819091462462260, +1.75095243467674963174960549181735699, +1.27290623595425868166927619954206311, +1.19187873588968751839772850216082291, +1.51347675296311440691954313156049479, +1.41428927432540960978149412308176212, +1.87663954632860999444114390521324020, +1.85615776611097765350165176563365641, +1.23683881845992478254632789260304073, +1.77275658151466274078278988332386660, +1.87804419832448381091983864011581088, +1.66759746595238888195652208413529136, -0.192592994438723585305597794258492732E-33, -0.674075480535532548569592279904724561E-33, +0.192592994438723585305597794258492732E-33, -0.192592994438723585305597794258492732E-33, +0.288889491658085377958396691387739098E-33, -0.288889491658085377958396691387739098E-33, -0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000, -0.577778983316170755916793382775478196E-33, -0.288889491658085377958396691387739098E-33, -0.962964972193617926527988971292463659E-34, -0.192592994438723585305597794258492732E-33, -0.385185988877447170611195588516985464E-33, -0.288889491658085377958396691387739098E-33, +0.674075480535532548569592279904724561E-33, -0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000, -0.385185988877447170611195588516985464E-33, +0.00000000000000000000000000000000000, -0.962964972193617926527988971292463659E-34, +0.577778983316170755916793382775478196E-33, -0.192592994438723585305597794258492732E-33, +0.962964972193617926527988971292463659E-34, -0.288889491658085377958396691387739098E-33, +0.00000000000000000000000000000000000, -0.577778983316170755916793382775478196E-33, +0.481482486096808963263994485646231830E-33, -0.385185988877447170611195588516985464E-33, +0.288889491658085377958396691387739098E-33, -0.288889491658085377958396691387739098E-33, +0.962964972193617926527988971292463659E-34, +0.192592994438723585305597794258492732E-33, -0.192592994438723585305597794258492732E-33, -0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000, +0.962964972193617926527988971292463659E-34, +0.962964972193617926527988971292463659E-34, +0.385185988877447170611195588516985464E-33, -0.962964972193617926527988971292463659E-34, -0.192592994438723585305597794258492732E-33, -0.385185988877447170611195588516985464E-33, -0.962964972193617926527988971292463659E-34, -0.288889491658085377958396691387739098E-33, +0.962964972193617926527988971292463659E-34, +0.00000000000000000000000000000000000, -0.192592994438723585305597794258492732E-33, +0.962964972193617926527988971292463659E-34, +0.192592994438723585305597794258492732E-33, +0.192592994438723585305597794258492732E-33, +0.962964972193617926527988971292463659E-34, -0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000, +0.962964972193617926527988971292463659E-34, +0.674075480535532548569592279904724561E-33, +0.192592994438723585305597794258492732E-33, -0.288889491658085377958396691387739098E-33, +0.962964972193617926527988971292463659E-34, +0.962964972193617926527988971292463659E-34, +0.192592994438723585305597794258492732E-33, -0.192592994438723585305597794258492732E-33, +0.192592994438723585305597794258492732E-33, +0.962964972193617926527988971292463659E-34
318reltol = sqrt(epsilon(1._TKC))
319reltol
320+0.138777878078144567552953958511352539E-16
321isClose(data, atad(1:size(data)), reltol = reltol)
322T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
323call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
324
325lenData = getUnifRand(5, 100)
326lenData
327+42
328data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
329data
330(+1.72190785, +0.417135000), (+1.12528718, +0.435192287), (+1.20565748, +0.785276353), (+1.64849222, +0.842765033), (+1.23317027, +0.508439779), (+1.95159221, +0.163776100), (+1.31102753, +0.192224085), (+1.01604390, +0.173205078), (+1.36187589, +0.724008799), (+1.49843454, +0.471238375), (+1.96534026, +0.588352978), (+1.57290030, +0.806448519), (+1.95567060, +0.414270997), (+1.71936035, +0.515818775), (+1.60928059, +0.104911625), (+1.52323842, +0.432237983E-1), (+1.62866640, +0.493071139), (+1.18928111, +0.798150480), (+1.73992920, +0.587624907E-1), (+1.37691307, +0.678097606E-1), (+1.73331130, +0.248168290), (+1.37901437, +0.372975826), (+1.13284600, +0.525243759), (+1.09947133, +0.565081656), (+1.60733938, +0.248407245), (+1.97828722, +0.324057460), (+1.51051784, +0.910926402), (+1.34889507, +0.132772028), (+1.14498377, +0.675760567), (+1.18905604, +0.912653744), (+1.38582182, +0.380961359), (+1.81031489, +0.378361523), (+1.91893780, +0.341287017), (+1.32467008, +0.724213302), (+1.09135389, +0.841250598), (+1.04291940, +0.756778717), (+1.12839508, +0.924480855), (+1.38037157, +0.515673578), (+1.79083085, +0.253382921), (+1.35979521, +0.148816228), (+1.26946568, +0.422053218), (+1.06609476, +0.580729544)
331
332atad = getFFTR(getFFTF(data))
333atad = atad / size(atad)
334atad
335(+1.72190785, +0.417134881), (+1.12528694, +0.435192525), (+1.20565736, +0.785276234), (+1.64849198, +0.842764914), (+1.23317027, +0.508439779), (+1.95159197, +0.163776010), (+1.31102729, +0.192224026), (+1.01604378, +0.173205003), (+1.36187577, +0.724008799), (+1.49843431, +0.471238494), (+1.96534014, +0.588353038), (+1.57289994, +0.806448519), (+1.95567048, +0.414271295), (+1.71936035, +0.515818954), (+1.60928035, +0.104911715), (+1.52323842, +0.432240330E-1), (+1.62866640, +0.493071049), (+1.18928099, +0.798150480), (+1.73992896, +0.587622970E-1), (+1.37691307, +0.678097159E-1), (+1.73331141, +0.248168260), (+1.37901437, +0.372975856), (+1.13284600, +0.525243580), (+1.09947157, +0.565081596), (+1.60733926, +0.248407200), (+1.97828698, +0.324057549), (+1.51051760, +0.910926282), (+1.34889483, +0.132771969), (+1.14498353, +0.675760508), (+1.18905580, +0.912653685), (+1.38582146, +0.380961329), (+1.81031466, +0.378361374), (+1.91893792, +0.341287017), (+1.32466996, +0.724213183), (+1.09135377, +0.841250598), (+1.04291952, +0.756778538), (+1.12839508, +0.924480915), (+1.38037157, +0.515673637), (+1.79083085, +0.253382981), (+1.35979545, +0.148816273), (+1.26946568, +0.422053128), (+1.06609464, +0.580729365), (+0.596046448E-7, -0.596046448E-7), (+0.476837158E-6, -0.596046448E-7), (-0.119209290E-6, -0.163912773E-6), (+0.596046448E-7, -0.119209290E-6), (+0.596046448E-7, +0.745058060E-7), (+0.178813934E-6, +0.186264515E-7), (+0.00000000, +0.00000000), (+0.119209290E-6, +0.596046448E-7), (-0.596046448E-7, +0.745058060E-7), (+0.357627869E-6, +0.223517418E-6), (+0.00000000, -0.894069672E-7), (+0.00000000, +0.596046448E-7), (-0.119209290E-6, +0.00000000), (+0.596046448E-7, +0.178813934E-6), (+0.238418579E-6, -0.447034836E-7), (+0.178813934E-6, +0.298023224E-7), (+0.238418579E-6, +0.00000000), (+0.298023224E-6, +0.208616257E-6), (+0.238418579E-6, -0.119209290E-6), (+0.119209290E-6, +0.00000000), (+0.00000000, -0.894069672E-7), (+0.00000000, +0.894069672E-7)
336reltol = sqrt(epsilon(1._TKC))
337reltol
338+0.345266977E-3
339isClose(data, atad(1:size(data)), reltol = reltol)
340T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
341call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
342
343lenData = getUnifRand(5, 100)
344lenData
345+92
346data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
347data
348(+1.4876632174454825, +0.89504405270142295), (+1.8362883023426360, +0.23187781002731023), (+1.2480966105828173, +0.67394424012198639E-1), (+1.1330472803388938, +0.89461371730653705), (+1.7035516121081768, +0.86210441005081040), (+1.7369646208519702, +0.67458811078890746), (+1.0035079774021769, +0.96083488802364059E-1), (+1.3835806816984753, +0.96961828149079388E-1), (+1.0236088476169947, +0.76067823454527417), (+1.4852764045237734, +0.58680614424549904), (+1.9083141453824566, +0.19375192316651135), (+1.2707961179587741, +0.77965524276199438), (+1.9785403286147341, +0.55771019941402789), (+1.6445826574152167, +0.75231184269571172), (+1.2773640812553357, +0.51752634317357460), (+1.0607346001318350, +0.92738240906821146E-2), (+1.2661076477949571, +0.45682877845020409), (+1.0427446955634414, +0.15157733922584304), (+1.7447083440620492, +0.57311080559408256), (+1.1627514751673491, +0.22967868876869713), (+1.0108226260388191, +0.53517245475528141), (+1.1986914749651618, +0.75875611228772832), (+1.0128295754734435, +0.82455813933260291), (+1.3861623746670595, +0.89838413797894656), (+1.8175841794786178, +0.33110919813577167E-1), (+1.1070090735352571, +0.70055015798537301), (+1.7257051005703121, +0.97937326886326470), (+1.7110232971478561, +0.99227673174717690), (+1.7484639954988659, +0.47053335286410691), (+1.3942041705335906, +0.35805263529077624), (+1.5786713338289184, +0.58146268116320288E-1), (+1.5543133603076016, +0.47332267867234179), (+1.6606508363924017, +0.59096646144750742E-1), (+1.6812883884214598, +0.37808366328985687), (+1.3955720856581579, +0.16811898918052881), (+1.9936672262032022, +0.21237319378463004), (+1.3908772394607891, +0.98461643848252445), (+1.3518558342478404, +0.44122369995034683), (+1.7176861303707631, +0.76110113032375293), (+1.2648999816850355, +0.28313984151257943), (+1.1134267712657206, +0.46417418521882303), (+1.5885124316464045, +0.14042837388659191), (+1.0845185915283040, +0.73168431431321612), (+1.1180336533380428, +0.58253166490144404), (+1.9587504861873160, +0.42530313154490629E-1), (+1.4053461129437095, +0.12295041676543039), (+1.7099969494153104, +0.35948769590788698), (+1.1454407898412535, +0.64193682749237158), (+1.3943500354421898, +0.21972638926646570), (+1.6283302138300260, +0.89178356343053888), (+1.5803021193501223, +0.11842445338568364), (+1.1019642891687731, +0.48722273350761991), (+1.8025705506496963, +0.95420187629361386), (+1.8449482749999684, +0.84587722609339178), (+1.1279066154128383, +0.10855292465929833), (+1.8403554824575634, +0.42166169798960074), (+1.7273349979165094, +0.55373716983003285), (+1.9844215245981354, +0.26812788006893085), (+1.6384157471985024, +0.54751456464726123E-1), (+1.4019474511682000, +0.90222873697810257), (+1.2322725265206129, +0.85583752749248276), (+1.9229381013822859, +0.52571686638929194E-1), (+1.1326355913050505, +0.53879372086667199), (+1.7637028560450112, +0.63511493633935401), (+1.6633071492045346, +0.60726400498479494), (+1.0320256711809019, +0.30248941261222395), (+1.4392896254069458, +0.35446337009850870), (+1.2786804778924119, +0.62534659617708932), (+1.9297545431160481, +0.82464664212137895), (+1.7288623928880154, +0.32422016371059925), (+1.2353340209436221, +0.64682894487396903), (+1.6473511040315012, +0.48083023925920010E-1), (+1.6796269537660407, +0.58121688311304065), (+1.7664494055637392, +0.84471241493694016), (+1.3948008448176668, +0.18692430702523433), (+1.2558728552215834, +0.14538427977840462), (+1.5399170741156025, +0.71813568572076791), (+1.3655046219605804, +0.55789333169915889), (+1.5735301653461957, +0.17173401114627618), (+1.1070325400053078, +0.91042464952756286), (+1.7936765245409734, +0.58229419148785455), (+1.9425897902428368, +0.57111208722931417), (+1.6433675107135348, +0.67530060680189885), (+1.0708359387521389, +0.59849514567828610), (+1.2045480402197715, +0.53583869410601792), (+1.4868739860883879, +0.44362047311146480), (+1.5318128878218729, +0.87055945601915807), (+1.0258527157728614, +0.91244656823812786), (+1.5528668369330731, +0.80493263953915428), (+1.4609028412203291, +0.19342342117264621), (+1.1746210220301179, +0.29424542812984611), (+1.7253623330379608, +0.80392786966207574)
349
350atad = getFFTR(getFFTF(data))
351atad = atad / size(atad)
352atad
353(+1.4876632174454827, +0.89504405270142284), (+1.8362883023426362, +0.23187781002731045), (+1.2480966105828168, +0.67394424012198695E-1), (+1.1330472803388940, +0.89461371730653727), (+1.7035516121081766, +0.86210441005081029), (+1.7369646208519698, +0.67458811078890746), (+1.0035079774021765, +0.96083488802364114E-1), (+1.3835806816984748, +0.96961828149079471E-1), (+1.0236088476169951, +0.76067823454527406), (+1.4852764045237734, +0.58680614424549915), (+1.9083141453824566, +0.19375192316651160), (+1.2707961179587741, +0.77965524276199472), (+1.9785403286147343, +0.55771019941402800), (+1.6445826574152165, +0.75231184269571183), (+1.2773640812553353, +0.51752634317357438), (+1.0607346001318347, +0.92738240906825031E-2), (+1.2661076477949571, +0.45682877845020409), (+1.0427446955634412, +0.15157733922584293), (+1.7447083440620488, +0.57311080559408245), (+1.1627514751673489, +0.22967868876869729), (+1.0108226260388193, +0.53517245475528130), (+1.1986914749651616, +0.75875611228772821), (+1.0128295754734433, +0.82455813933260291), (+1.3861623746670590, +0.89838413797894634), (+1.8175841794786178, +0.33110919813577389E-1), (+1.1070090735352571, +0.70055015798537279), (+1.7257051005703117, +0.97937326886326459), (+1.7110232971478556, +0.99227673174717723), (+1.7484639954988657, +0.47053335286410702), (+1.3942041705335904, +0.35805263529077613), (+1.5786713338289182, +0.58146268116320315E-1), (+1.5543133603076011, +0.47332267867234190), (+1.6606508363924020, +0.59096646144750575E-1), (+1.6812883884214598, +0.37808366328985649), (+1.3955720856581575, +0.16811898918052864), (+1.9936672262032022, +0.21237319378462988), (+1.3908772394607896, +0.98461643848252423), (+1.3518558342478402, +0.44122369995034671), (+1.7176861303707631, +0.76110113032375271), (+1.2648999816850353, +0.28313984151257909), (+1.1134267712657206, +0.46417418521882303), (+1.5885124316464045, +0.14042837388659168), (+1.0845185915283038, +0.73168431431321601), (+1.1180336533380424, +0.58253166490144404), (+1.9587504861873155, +0.42530313154490573E-1), (+1.4053461129437093, +0.12295041676543034), (+1.7099969494153102, +0.35948769590788676), (+1.1454407898412531, +0.64193682749237158), (+1.3943500354421901, +0.21972638926646557), (+1.6283302138300260, +0.89178356343053877), (+1.5803021193501221, +0.11842445338568358), (+1.1019642891687729, +0.48722273350761997), (+1.8025705506496963, +0.95420187629361308), (+1.8449482749999682, +0.84587722609339133), (+1.1279066154128383, +0.10855292465929842), (+1.8403554824575630, +0.42166169798960018), (+1.7273349979165098, +0.55373716983003285), (+1.9844215245981349, +0.26812788006893096), (+1.6384157471985019, +0.54751456464726123E-1), (+1.4019474511681997, +0.90222873697810213), (+1.2322725265206129, +0.85583752749248232), (+1.9229381013822853, +0.52571686638929069E-1), (+1.1326355913050505, +0.53879372086667177), (+1.7637028560450105, +0.63511493633935379), (+1.6633071492045348, +0.60726400498479494), (+1.0320256711809017, +0.30248941261222395), (+1.4392896254069452, +0.35446337009850898), (+1.2786804778924117, +0.62534659617708932), (+1.9297545431160481, +0.82464664212137884), (+1.7288623928880149, +0.32422016371059914), (+1.2353340209436219, +0.64682894487396903), (+1.6473511040315012, +0.48083023925919982E-1), (+1.6796269537660407, +0.58121688311304087), (+1.7664494055637388, +0.84471241493694038), (+1.3948008448176665, +0.18692430702523452), (+1.2558728552215834, +0.14538427977840440), (+1.5399170741156025, +0.71813568572076758), (+1.3655046219605802, +0.55789333169915878), (+1.5735301653461953, +0.17173401114627623), (+1.1070325400053072, +0.91042464952756230), (+1.7936765245409734, +0.58229419148785455), (+1.9425897902428366, +0.57111208722931439), (+1.6433675107135346, +0.67530060680189885), (+1.0708359387521387, +0.59849514567828588), (+1.2045480402197717, +0.53583869410601792), (+1.4868739860883875, +0.44362047311146474), (+1.5318128878218731, +0.87055945601915785), (+1.0258527157728612, +0.91244656823812753), (+1.5528668369330729, +0.80493263953915417), (+1.4609028412203289, +0.19342342117264616), (+1.1746210220301174, +0.29424542812984605), (+1.7253623330379604, +0.80392786966207552), (+0.22204460492503131E-15, -0.83266726846886741E-16), (+0.22204460492503131E-15, -0.33306690738754696E-15), (+0.0000000000000000, -0.13877787807814457E-15), (+0.33306690738754696E-15, -0.33306690738754696E-15), (+0.33306690738754696E-15, +0.27408630920433552E-15), (-0.11102230246251565E-15, +0.0000000000000000), (-0.33306690738754696E-15, +0.31918911957973251E-15), (-0.33306690738754696E-15, -0.55511151231257827E-16), (+0.0000000000000000, +0.44408920985006262E-15), (-0.33306690738754696E-15, +0.19428902930940239E-15), (-0.33306690738754696E-15, +0.16653345369377348E-15), (-0.11102230246251565E-15, +0.13877787807814457E-15), (+0.11102230246251565E-15, +0.0000000000000000), (-0.11102230246251565E-15, -0.22204460492503131E-15), (-0.44408920985006262E-15, -0.11102230246251565E-15), (-0.33306690738754696E-15, -0.16653345369377348E-15), (+0.11102230246251565E-15, +0.27755575615628914E-15), (+0.33306690738754696E-15, -0.55511151231257827E-16), (-0.22204460492503131E-15, +0.11102230246251565E-15), (-0.11102230246251565E-15, -0.55511151231257827E-16), (+0.22204460492503131E-15, +0.30531133177191805E-15), (-0.22204460492503131E-15, +0.11102230246251565E-15), (+0.22204460492503131E-15, +0.27755575615628914E-15), (-0.22204460492503131E-15, -0.55511151231257827E-16), (+0.11102230246251565E-15, +0.72164496600635175E-15), (-0.22204460492503131E-15, +0.11102230246251565E-15), (-0.11102230246251565E-15, +0.47184478546569153E-15), (+0.0000000000000000, +0.36082248300317588E-15), (+0.33306690738754696E-15, +0.22204460492503131E-15), (+0.33306690738754696E-15, +0.27755575615628914E-16), (+0.11102230246251565E-15, +0.11102230246251565E-15), (+0.44408920985006262E-15, +0.16653345369377348E-15), (+0.11102230246251565E-15, +0.44408920985006262E-15), (+0.22204460492503131E-15, +0.56898930012039273E-15), (-0.22204460492503131E-15, +0.11102230246251565E-15), (+0.44408920985006262E-15, +0.77715611723760958E-15)
354reltol = sqrt(epsilon(1._TKC))
355reltol
356+0.14901161193847656E-7
357isClose(data, atad(1:size(data)), reltol = reltol)
358T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
359call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
360
361lenData = getUnifRand(5, 100)
362lenData
363+24
364data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
365data
366(+1.38615525108713172189946670134928709, +0.656943709226609180594735670835263924), (+1.86401249488794495923647110858725110, +0.820371476571424195056854387972998427), (+1.11454547982082781596481438337322624, +0.199476304651699000509087868764830619), (+1.24363687346427956219631310562943627, +0.543308121738419738934751355774096415E-1), (+1.18625571289287815108707507709753256, +0.666431565732918872576995825538002203), (+1.68145100189576625365500758144145873, +0.511647371952826274599943646685484070), (+1.83636510767412802051554334997230186, +0.812861206659975626476763056125456203E-1), (+1.47262132672721885204210569264853123, +0.320147763898749576001648138086274011), (+1.97465505093409611223116525559929694, +0.172258450375030912974487959380777129), (+1.70668357294097268373018894004257083, +0.180615863773212477065074217551568065), (+1.76052783245092892682876927156465247, +0.246690255967268037054391991914149210), (+1.18434880912454589260809416641488154, +0.363935456489420026713895394698830970), (+1.91513498674069584467645411063752323, +0.678510120182528152946387809743305867), (+1.99066595140823224532696345515556631, +0.770975336438987815860140899473101448), (+1.68939659350430324456723804374457140, +0.451878191495956599223396537131105825), (+1.33351428755927012633943099586297526, +0.106635058147178259890377396129245613), (+1.85231509717541400062972478979693792, +0.684486387893966174744712524414251640), (+1.52054743542717778392963846255037180, +0.828417904998840549419711844293471367E-1), (+1.58567271793678004383024082059369414, +0.801186814393093065100656652403185934), (+1.05702096096390324455304236343296136, +0.271878268806314321485407768967464176), (+1.23170666330794184455247859621068555, +0.101581977673966538320470892681956890), (+1.40247616005856794596700212791688306, +0.350913058091777982390421720667953469E-1), (+1.10038076314858041453293879488974777, +0.393084531636144121281788706425862251), (+1.26254202653659836028422657107787485, +0.644946497134611001071282068539180961)
367
368atad = getFFTR(getFFTF(data))
369atad = atad / size(atad)
370atad
371(+1.38615525108713172189946670134928728, +0.656943709226609180594735670835263828), (+1.86401249488794495923647110858725110, +0.820371476571424195056854387972998619), (+1.11454547982082781596481438337322624, +0.199476304651699000509087868764830378), (+1.24363687346427956219631310562943647, +0.543308121738419738934751355774095452E-1), (+1.18625571289287815108707507709753275, +0.666431565732918872576995825538002299), (+1.68145100189576625365500758144145873, +0.511647371952826274599943646685483877), (+1.83636510767412802051554334997230186, +0.812861206659975626476763056125454277E-1), (+1.47262132672721885204210569264853142, +0.320147763898749576001648138086273963), (+1.97465505093409611223116525559929694, +0.172258450375030912974487959380777057), (+1.70668357294097268373018894004257083, +0.180615863773212477065074217551568017), (+1.76052783245092892682876927156465247, +0.246690255967268037054391991914149330), (+1.18434880912454589260809416641488154, +0.363935456489420026713895394698831066), (+1.91513498674069584467645411063752304, +0.678510120182528152946387809743305867), (+1.99066595140823224532696345515556592, +0.770975336438987815860140899473101448), (+1.68939659350430324456723804374457121, +0.451878191495956599223396537131106211), (+1.33351428755927012633943099586297488, +0.106635058147178259890377396129245577), (+1.85231509717541400062972478979693792, +0.684486387893966174744712524414251640), (+1.52054743542717778392963846255037199, +0.828417904998840549419711844293470886E-1), (+1.58567271793678004383024082059369414, +0.801186814393093065100656652403186223), (+1.05702096096390324455304236343296155, +0.271878268806314321485407768967464176), (+1.23170666330794184455247859621068574, +0.101581977673966538320470892681956842), (+1.40247616005856794596700212791688306, +0.350913058091777982390421720667954191E-1), (+1.10038076314858041453293879488974739, +0.393084531636144121281788706425862491), (+1.26254202653659836028422657107787504, +0.644946497134611001071282068539181057), (+0.962964972193617926527988971292463659E-34, -0.240741243048404481631997242823115915E-34), (+0.288889491658085377958396691387739098E-33, +0.00000000000000000000000000000000000), (-0.288889491658085377958396691387739098E-33, -0.722223729145213444895991728469347744E-34), (+0.00000000000000000000000000000000000, +0.240741243048404481631997242823115915E-34), (+0.288889491658085377958396691387739098E-33, +0.481482486096808963263994485646231830E-34), (+0.00000000000000000000000000000000000, +0.144444745829042688979198345693869549E-33), (-0.577778983316170755916793382775478196E-33, -0.312963615962925826121596415670050689E-33), (-0.288889491658085377958396691387739098E-33, +0.132407683676622464897598483552713753E-33)
372reltol = sqrt(epsilon(1._TKC))
373reltol
374+0.138777878078144567552953958511352539E-16
375isClose(data, atad(1:size(data)), reltol = reltol)
376T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
377call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
378
379lenData = getUnifRand(5, 100)
380lenData
381+83
382data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
383data
384+1.82954407, +1.66007912, +1.29237890, +1.67414081, +1.62125444, +1.93435156, +1.67318308, +1.77463245, +1.84952569, +1.64393759, +1.06802273, +1.21585834, +1.88273513, +1.94621205, +1.78694642, +1.72908592, +1.80596256, +1.61024642, +1.84257746, +1.48528218, +1.01010478, +1.00730002, +1.81436300, +1.37156737, +1.76994073, +1.90308475, +1.52443242, +1.47101760, +1.41449904, +1.77066469, +1.45116687, +1.09963906, +1.86731529, +1.67471409, +1.81133032, +1.85282111, +1.80782175, +1.76071000, +1.98177123, +1.44929123, +1.58912635, +1.27347279, +1.80842423, +1.74599671, +1.67960894, +1.94848847, +1.02844083, +1.51381826, +1.01359475, +1.50074983, +1.32980597, +1.42883372, +1.46565223, +1.32055771, +1.81412196, +1.22189951, +1.97074544, +1.77804494, +1.55398178, +1.46016002, +1.67242670, +1.34960914, +1.32450461, +1.29560137, +1.23056459, +1.56209064, +1.43270111, +1.21892440, +1.14034390, +1.79815006, +1.19090068, +1.97584367, +1.56648219, +1.99719429, +1.54238629, +1.45130944, +1.52757478, +1.77522278, +1.56601119, +1.94545758, +1.54787493, +1.08781910, +1.03181696
385
386atad = getFFTR(getFFTF(data))
387atad = atad * 2 / size(atad)
388atad
389+1.82954383, +1.66007924, +1.29237854, +1.67414093, +1.62125397, +1.93435121, +1.67318261, +1.77463210, +1.84952569, +1.64393783, +1.06802273, +1.21585834, +1.88273478, +1.94621229, +1.78694654, +1.72908568, +1.80596232, +1.61024666, +1.84257698, +1.48528218, +1.01010442, +1.00730038, +1.81436253, +1.37156725, +1.76994038, +1.90308523, +1.52443218, +1.47101784, +1.41449869, +1.77066493, +1.45116687, +1.09963918, +1.86731517, +1.67471433, +1.81133008, +1.85282111, +1.80782175, +1.76071024, +1.98177099, +1.44929099, +1.58912647, +1.27347302, +1.80842412, +1.74599671, +1.67960906, +1.94848871, +1.02844095, +1.51381838, +1.01359451, +1.50075006, +1.32980585, +1.42883372, +1.46565211, +1.32055807, +1.81412148, +1.22189951, +1.97074533, +1.77804494, +1.55398142, +1.46015978, +1.67242646, +1.34960938, +1.32450438, +1.29560113, +1.23056459, +1.56209087, +1.43270099, +1.21892452, +1.14034414, +1.79815006, +1.19090068, +1.97584355, +1.56648231, +1.99719429, +1.54238605, +1.45130932, +1.52757478, +1.77522278, +1.56601119, +1.94545770, +1.54787493, +1.08781910, +1.03181696, +0.00000000, +0.298023224E-6, +0.119209290E-6, +0.298023224E-6, +0.298023224E-6, +0.417232513E-6, -0.476837158E-6, +0.00000000, -0.238418579E-6, +0.00000000, +0.00000000, +0.00000000, +0.119209290E-6, -0.119209290E-6, +0.00000000, -0.238418579E-6, +0.238418579E-6, -0.596046448E-7, +0.238418579E-6, -0.178813934E-6, +0.417232513E-6, +0.119209290E-6, -0.596046448E-7, -0.119209290E-6, +0.238418579E-6, +0.00000000, +0.596046448E-7, +0.00000000, +0.357627869E-6, -0.119209290E-6, +0.178813934E-6, +0.596046448E-7, +0.298023224E-6, -0.238418579E-6, +0.178813934E-6, -0.596046448E-7, +0.357627869E-6, +0.178813934E-6, +0.596046448E-7, +0.119209290E-6, +0.178813934E-6, -0.119209290E-6, +0.596046448E-7, -0.238418579E-6, -0.596046448E-7
390reltol = sqrt(epsilon(1._TKC))
391reltol
392+0.345266977E-3
393isClose(data, atad(1:size(data)), reltol = reltol)
394T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
395call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
396
397lenData = getUnifRand(5, 100)
398lenData
399+21
400data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
401data
402+1.9874697763034304, +1.4080722786665714, +1.0240562944741376, +1.3449513564783073, +1.8739694447535933, +1.4123351095625285, +1.3774655472492245, +1.9370457209167093, +1.5770143865583885, +1.3317553988781801, +1.3784032871281053, +1.6579282804090893, +1.9197238742141494, +1.3441083483828513, +1.0037624010246549, +1.3331014130010450, +1.6701002426752873, +1.7872173982366593, +1.6695023608771922, +1.4305908891796326, +1.5869577522431144
403
404atad = getFFTR(getFFTF(data))
405atad = atad * 2 / size(atad)
406atad
407+1.9874697763034304, +1.4080722786665711, +1.0240562944741376, +1.3449513564783078, +1.8739694447535928, +1.4123351095625289, +1.3774655472492245, +1.9370457209167096, +1.5770143865583885, +1.3317553988781801, +1.3784032871281056, +1.6579282804090896, +1.9197238742141498, +1.3441083483828509, +1.0037624010246549, +1.3331014130010446, +1.6701002426752876, +1.7872173982366590, +1.6695023608771919, +1.4305908891796326, +1.5869577522431140, -0.11102230246251565E-15, +0.0000000000000000, -0.22204460492503131E-15, -0.33306690738754696E-15, +0.22204460492503131E-15, -0.22204460492503131E-15, -0.22204460492503131E-15, -0.44408920985006262E-15, +0.55511151231257827E-15, +0.33306690738754696E-15, +0.44408920985006262E-15
408reltol = sqrt(epsilon(1._TKC))
409reltol
410+0.14901161193847656E-7
411isClose(data, atad(1:size(data)), reltol = reltol)
412T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
413call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
414
415lenData = getUnifRand(5, 100)
416lenData
417+26
418data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
419data
420+1.59125889951907752019934783472659847, +1.14487677626327176459727024160928026, +1.07787323490555132350016586988949071, +1.31552773812039476321112184830410497, +1.59607856822245891226438453849445641, +1.39044516526044968231568433993037743, +1.51040166993113888233844701198734871, +1.15626833540422136101282817006930331, +1.19889147599067690695973004300608267, +1.21995527620382592619369044911062354, +1.92598380193354090590245034163276406, +1.08638460911498505594409159137307434, +1.36195156048051759421418558152401433, +1.72427443307166337180091875426668431, +1.57685418466276994366822577862261902, +1.83595997926654129139467812284980351, +1.51753180871228912450238365505305363, +1.49443571996560075444547874427212625, +1.33922322380942552661556184387582195, +1.80020337881147404914017299289980406, +1.92648198971291728041916839795747556, +1.34287925147059156908078409062231994, +1.01517275687101927931892498739604965, +1.75869138658541471829595565669809292, +1.45009526837407087987693382002128854, +1.69051141196274037226244685056893473
421
422atad = getFFTR(getFFTF(data))
423atad = atad * 2 / size(atad)
424atad
425+1.59125889951907752019934783472659847, +1.14487677626327176459727024160927988, +1.07787323490555132350016586988949090, +1.31552773812039476321112184830410478, +1.59607856822245891226438453849445641, +1.39044516526044968231568433993037743, +1.51040166993113888233844701198734852, +1.15626833540422136101282817006930293, +1.19889147599067690695973004300608267, +1.21995527620382592619369044911062334, +1.92598380193354090590245034163276463, +1.08638460911498505594409159137307453, +1.36195156048051759421418558152401491, +1.72427443307166337180091875426668431, +1.57685418466276994366822577862261941, +1.83595997926654129139467812284980351, +1.51753180871228912450238365505305382, +1.49443571996560075444547874427212606, +1.33922322380942552661556184387582195, +1.80020337881147404914017299289980425, +1.92648198971291728041916839795747594, +1.34287925147059156908078409062231994, +1.01517275687101927931892498739604926, +1.75869138658541471829595565669809292, +1.45009526837407087987693382002128854, +1.69051141196274037226244685056893454, -0.962964972193617926527988971292463659E-33, -0.385185988877447170611195588516985464E-33, -0.192592994438723585305597794258492732E-33, -0.192592994438723585305597794258492732E-33, -0.674075480535532548569592279904724561E-33, -0.385185988877447170611195588516985464E-33
426reltol = sqrt(epsilon(1._TKC))
427reltol
428+0.138777878078144567552953958511352539E-16
429isClose(data, atad(1:size(data)), reltol = reltol)
430T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
431call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
432
433lenData = getUnifRand(5, 100)
434lenData
435+80
436data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
437data
438(+1.35535550, +0.386279345), (+1.81247616, +0.769758165), (+1.37027347, +0.924116015), (+1.96324801, +0.296363235E-1), (+1.42105865, +0.677512527), (+1.17171752, +0.310417473), (+1.88268042, +0.640056908), (+1.89689565, +0.466183007), (+1.09030557, +0.117309570), (+1.57352400, +0.657129109), (+1.98152852, +0.527228951), (+1.00788701, +0.559067726E-1), (+1.88250780, +0.593748152), (+1.13389814, +0.966435790), (+1.30340552, +0.132241786), (+1.01587629, +0.773783922), (+1.52655864, +0.317524374), (+1.25992537, +0.265154600), (+1.33931327, +0.654363036E-1), (+1.87339711, +0.959638000), (+1.88402164, +0.434142649), (+1.37406719, +0.320711792), (+1.45736349, +0.177268386E-1), (+1.00613904, +0.679818869), (+1.15840411, +0.593073905), (+1.03726637, +0.294978142), (+1.49994612, +0.464033782), (+1.13792539, +0.801556885), (+1.04300284, +0.646637499), (+1.06714237, +0.785975158), (+1.71126890, +0.998206139), (+1.84732652, +0.185675204), (+1.89450634, +0.113021255), (+1.04280245, +0.672086239), (+1.14857626, +0.584959269), (+1.19245553, +0.552403867), (+1.85606670, +0.187611997), (+1.05425811, +0.871383786), (+1.42999101, +0.179710150), (+1.39397085, +0.205180824), (+1.03436327, +0.461366594), (+1.36633492, +0.437622845), (+1.05565119, +0.442343175), (+1.60466599, +0.694961667), (+1.15642762, +0.709996760), (+1.15210533, +0.721292794), (+1.78030181, +0.566053867), (+1.00083160, +0.635538697), (+1.82945013, +0.645564497), (+1.20352149, +0.672549188), (+1.21845472, +0.101913393), (+1.22999716, +0.475791931), (+1.38411093, +0.688770831), (+1.83481216, +0.800350308), (+1.04241979, +0.331629217), (+1.92377412, +0.457605720), (+1.50378180, +0.123260796), (+1.42604017, +0.975626707), (+1.94689167, +0.618159771E-3), (+1.23861575, +0.111814320), (+1.25269222, +0.767742515), (+1.69089484, +0.549870431), (+1.27330720, +0.300751209), (+1.50191927, +0.709958851), (+1.72168243, +0.561404407), (+1.99509239, +0.474641919), (+1.26590550, +0.904152095), (+1.41059542, +0.245035887E-1), (+1.35262990, +0.619480193), (+1.91988850, +0.622918010), (+1.74039662, +0.155627370), (+1.53402424, +0.377178371), (+1.27134633, +0.253980756), (+1.49523401, +0.769233704E-1), (+1.57831979, +0.339169323), (+1.40560782, +0.819025040), (+1.03673112, +0.813843608E-1), (+1.18348241, +0.902259171), (+1.39739180, +0.382205486), (+1.42961204, +0.699825346)
439
440atad = getFFTR(getFFTF(data))
441atad = atad / size(atad)
442atad
443(+1.35535550, +0.386279345), (+1.81247616, +0.769758284), (+1.37027335, +0.924116015), (+1.96324754, +0.296362489E-1), (+1.42105830, +0.677512348), (+1.17171741, +0.310417414), (+1.88268030, +0.640056729), (+1.89689541, +0.466182739), (+1.09030569, +0.117309600), (+1.57352400, +0.657129228), (+1.98152852, +0.527228951), (+1.00788724, +0.559067726E-1), (+1.88250780, +0.593748212), (+1.13389802, +0.966435790), (+1.30340540, +0.132241875), (+1.01587629, +0.773783922), (+1.52655840, +0.317524493), (+1.25992537, +0.265154719), (+1.33931327, +0.654363707E-1), (+1.87339687, +0.959637761), (+1.88402152, +0.434142679), (+1.37406719, +0.320711821), (+1.45736337, +0.177267119E-1), (+1.00613880, +0.679818749), (+1.15840387, +0.593073905), (+1.03726637, +0.294978201), (+1.49994612, +0.464033902), (+1.13792551, +0.801557004), (+1.04300284, +0.646637559), (+1.06714249, +0.785974979), (+1.71126890, +0.998206079), (+1.84732628, +0.185675412), (+1.89450622, +0.113021061), (+1.04280245, +0.672086060), (+1.14857638, +0.584959090), (+1.19245565, +0.552403629), (+1.85606647, +0.187611699), (+1.05425823, +0.871383607), (+1.42999101, +0.179709971), (+1.39397097, +0.205180690), (+1.03436315, +0.461366475), (+1.36633492, +0.437622786), (+1.05565131, +0.442342997), (+1.60466611, +0.694961667), (+1.15642762, +0.709996581), (+1.15210509, +0.721292615), (+1.78030181, +0.566053748), (+1.00083160, +0.635538816), (+1.82944989, +0.645564318), (+1.20352149, +0.672549069), (+1.21845460, +0.101913296), (+1.22999716, +0.475791931), (+1.38411081, +0.688770652), (+1.83481193, +0.800350070), (+1.04241979, +0.331629246), (+1.92377377, +0.457605422), (+1.50378156, +0.123260811), (+1.42603981, +0.975626588), (+1.94689155, +0.618055463E-3), (+1.23861575, +0.111814320), (+1.25269222, +0.767742276), (+1.69089460, +0.549870491), (+1.27330709, +0.300751090), (+1.50191915, +0.709958792), (+1.72168231, +0.561404228), (+1.99509239, +0.474641860), (+1.26590562, +0.904152036), (+1.41059518, +0.245035142E-1), (+1.35262978, +0.619480073), (+1.91988873, +0.622917891), (+1.74039662, +0.155627221), (+1.53402424, +0.377178162), (+1.27134621, +0.253980815), (+1.49523401, +0.769235492E-1), (+1.57831979, +0.339169383), (+1.40560782, +0.819024980), (+1.03673124, +0.813844800E-1), (+1.18348217, +0.902259350), (+1.39739192, +0.382205456), (+1.42961216, +0.699825287), (+0.596046448E-7, -0.119209290E-6), (+0.596046448E-7, +0.00000000), (+0.417232513E-6, -0.521540642E-7), (+0.298023224E-6, -0.149011612E-6), (+0.178813934E-6, -0.298023224E-7), (+0.119209290E-6, +0.00000000), (+0.298023224E-6, +0.111758709E-6), (+0.357627869E-6, +0.119209290E-6), (+0.00000000, -0.596046448E-7), (+0.119209290E-6, -0.193715096E-6), (+0.596046448E-7, -0.298023224E-7), (+0.119209290E-6, -0.178813934E-6), (+0.119209290E-6, -0.596046448E-7), (+0.00000000, -0.178813934E-6), (+0.596046448E-7, -0.119209290E-6), (+0.178813934E-6, -0.596046448E-7), (+0.596046448E-7, +0.707805157E-7), (-0.119209290E-6, +0.178813934E-6), (+0.238418579E-6, +0.238418579E-6), (+0.119209290E-6, +0.596046448E-7), (-0.178813934E-6, +0.238418579E-6), (+0.119209290E-6, +0.596046448E-7), (+0.238418579E-6, +0.238418579E-6), (+0.596046448E-7, +0.312924385E-6), (+0.119209290E-6, -0.149011612E-7), (+0.596046448E-7, +0.134110451E-6), (+0.238418579E-6, +0.149011612E-7), (+0.119209290E-6, -0.298023224E-7), (-0.596046448E-7, +0.298023224E-7), (-0.596046448E-7, +0.298023224E-7), (-0.596046448E-7, +0.298023224E-7), (-0.596046448E-7, +0.894069672E-7), (+0.596046448E-7, +0.596046448E-7), (+0.119209290E-6, +0.178813934E-6), (+0.298023224E-6, +0.201165676E-6), (+0.596046448E-7, +0.596046448E-7), (+0.119209290E-6, +0.894069672E-7), (+0.00000000, +0.894069672E-7), (+0.119209290E-6, +0.208616257E-6), (+0.119209290E-6, +0.312924385E-6), (+0.178813934E-6, -0.447034836E-7), (+0.119209290E-6, +0.00000000), (+0.178813934E-6, +0.745058060E-7), (+0.238418579E-6, -0.596046448E-7), (+0.119209290E-6, -0.894069672E-7), (+0.00000000, -0.298023224E-7), (-0.596046448E-7, +0.596046448E-7), (-0.119209290E-6, +0.119209290E-6)
444reltol = sqrt(epsilon(1._TKC))
445reltol
446+0.345266977E-3
447isClose(data, atad(1:size(data)), reltol = reltol)
448T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
449call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
450
451lenData = getUnifRand(5, 100)
452lenData
453+60
454data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
455data
456(+1.9568257521523233, +0.67956764385361612), (+1.6578701581713799, +0.97504820556892802), (+1.4400191351532601, +0.21261972714188326), (+1.3702548244688255, +0.49161824783829222), (+1.4844455899070628, +0.67331416516241394), (+1.4751872383762314, +0.84480099996768210), (+1.8271939345362755, +0.66249602088548232), (+1.7627940041415968, +0.72549145901858747), (+1.4290042072555313, +0.91586704858797541), (+1.1178812208047066, +0.11785735796834651), (+1.7662711782660097, +0.25624401842146760), (+1.1894163215316076, +0.78075087062486315), (+1.7337273253678271, +0.28665469558169066), (+1.5304686029887851, +0.10485484065968820), (+1.0686401818117663, +0.93713785529246929), (+1.7374623889503873, +0.98459451789789876E-1), (+1.0765629376239176, +0.63261267355664619), (+1.3743320083243526, +0.98436997528468306), (+1.1249301221123906, +0.17897520952114987), (+1.0516918916677682, +0.90619385487489490E-1), (+1.1077509060662631, +0.35202591270326056), (+1.0637366502774603, +0.58624070801408923), (+1.1850547513887055, +0.38692237938963270), (+1.4251747717749641, +0.81503529419411702), (+1.1318330467134996, +0.68632238511578036), (+1.4075761597314975, +0.11405889023969662), (+1.7567809184788981, +0.20810610887887393), (+1.5474060876694831, +0.26684398552197153), (+1.1657557723723695, +0.26783491024677575), (+1.3854535452937042, +0.21122589640509726), (+1.3266705070916516, +0.96781226294937350E-1), (+1.2193165619384492, +0.56993014432467926), (+1.4006190334606829, +0.58066462092961213), (+1.0701829672807268, +0.78900300537563983), (+1.4388617838793811, +0.35438490561335501), (+1.5723846468406477, +0.37186675418035831), (+1.7128149890919380, +0.88634033125659395), (+1.3472962900958416, +0.84972447152438790E-1), (+1.2193170580041888, +0.30391342946273991E-1), (+1.6389470791713063, +0.54858854077806096), (+1.4394269423523118, +0.73726812982126799), (+1.6906156056106625, +0.83304537558915515), (+1.0534621112872520, +0.44909876979704111), (+1.2921969772660937, +0.50561653997607048), (+1.2167997290846455, +0.65319645522000191), (+1.9579283017029703, +0.33690683000959720), (+1.9191147900634027, +0.24904345362025782), (+1.3035220370541609, +0.45511983603192141), (+1.9781402519350368, +0.27123122203574168), (+1.1498744796471134, +0.78207507686830668), (+1.3586872993439756, +0.26874753539714935), (+1.4955569232414696, +0.74624363596453402), (+1.6546363032061935, +0.26553650640436488), (+1.6363069239869532, +0.14989561227704939), (+1.5124280132410064, +0.80472747968952330), (+1.7987057151817387, +0.31536231184192121), (+1.7735155025944405, +0.61466790485279821), (+1.4295840048636084, +0.13567000487303615), (+1.1058602729538194, +0.69852922993741628), (+1.6230981842274197, +0.60399546380285696)
457
458atad = getFFTR(getFFTF(data))
459atad = atad / size(atad)
460atad
461(+1.9568257521523231, +0.67956764385361601), (+1.6578701581713799, +0.97504820556892802), (+1.4400191351532601, +0.21261972714188340), (+1.3702548244688253, +0.49161824783829250), (+1.4844455899070628, +0.67331416516241405), (+1.4751872383762317, +0.84480099996768221), (+1.8271939345362762, +0.66249602088548198), (+1.7627940041415970, +0.72549145901858747), (+1.4290042072555311, +0.91586704858797530), (+1.1178812208047066, +0.11785735796834657), (+1.7662711782660097, +0.25624401842146760), (+1.1894163215316078, +0.78075087062486304), (+1.7337273253678269, +0.28665469558169093), (+1.5304686029887848, +0.10485484065968836), (+1.0686401818117668, +0.93713785529246896), (+1.7374623889503873, +0.98459451789790486E-1), (+1.0765629376239172, +0.63261267355664619), (+1.3743320083243526, +0.98436997528468295), (+1.1249301221123911, +0.17897520952114990), (+1.0516918916677680, +0.90619385487489656E-1), (+1.1077509060662631, +0.35202591270326078), (+1.0637366502774606, +0.58624070801408923), (+1.1850547513887060, +0.38692237938963281), (+1.4251747717749645, +0.81503529419411724), (+1.1318330467134994, +0.68632238511578048), (+1.4075761597314977, +0.11405889023969670), (+1.7567809184788978, +0.20810610887887365), (+1.5474060876694828, +0.26684398552197164), (+1.1657557723723693, +0.26783491024677564), (+1.3854535452937045, +0.21122589640509706), (+1.3266705070916518, +0.96781226294937281E-1), (+1.2193165619384494, +0.56993014432467914), (+1.4006190334606827, +0.58066462092961202), (+1.0701829672807266, +0.78900300537563983), (+1.4388617838793811, +0.35438490561335501), (+1.5723846468406477, +0.37186675418035836), (+1.7128149890919380, +0.88634033125659395), (+1.3472962900958421, +0.84972447152438624E-1), (+1.2193170580041892, +0.30391342946273936E-1), (+1.6389470791713066, +0.54858854077806107), (+1.4394269423523116, +0.73726812982126810), (+1.6906156056106623, +0.83304537558915515), (+1.0534621112872520, +0.44909876979704100), (+1.2921969772660937, +0.50561653997607048), (+1.2167997290846451, +0.65319645522000180), (+1.9579283017029698, +0.33690683000959720), (+1.9191147900634022, +0.24904345362025770), (+1.3035220370541607, +0.45511983603192135), (+1.9781402519350362, +0.27123122203574146), (+1.1498744796471136, +0.78207507686830657), (+1.3586872993439758, +0.26874753539714918), (+1.4955569232414696, +0.74624363596453391), (+1.6546363032061935, +0.26553650640436488), (+1.6363069239869537, +0.14989561227704942), (+1.5124280132410073, +0.80472747968952318), (+1.7987057151817392, +0.31536231184192126), (+1.7735155025944402, +0.61466790485279832), (+1.4295840048636086, +0.13567000487303607), (+1.1058602729538198, +0.69852922993741617), (+1.6230981842274197, +0.60399546380285685), (+0.44408920985006262E-15, +0.13877787807814457E-15), (+0.44408920985006262E-15, -0.41633363423443370E-15), (+0.77715611723760958E-15, +0.40245584642661925E-15), (+0.11102230246251565E-14, +0.16653345369377348E-15)
462reltol = sqrt(epsilon(1._TKC))
463reltol
464+0.14901161193847656E-7
465isClose(data, atad(1:size(data)), reltol = reltol)
466T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
467call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
468
469lenData = getUnifRand(5, 100)
470lenData
471+67
472data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
473data
474(+1.04111738535257196813584661173828594, +0.993451635422329518792231264166156546), (+1.33671176473136160390201139491205855, +0.213922405545442542915388243615075720), (+1.08623451884314922467281181446194714, +0.587276210381549249200788263767326149), (+1.66854590745876058697719158827278177, +0.585079178775150571051582806189659182), (+1.22400876618331228849246378372593695, +0.525037298819500905727322369772935504), (+1.41878065406206091793805570362495380, +0.178278754013794424936273437369296293), (+1.24387531897044838468681395422708338, +0.727827353695423208285322077624929253), (+1.84294048853595312674978751619592206, +0.571781467285185519043994036405484352), (+1.87852528101618136189807545022222018, +0.217398338013283780869485050569390389), (+1.01629325988304750353271406659320078, +0.376348024843969603960912636190635698), (+1.83013639872820532694363660419106789, +0.859333512005139710417651032938942066), (+1.53300757867824752279439171076530862, +0.448828997518693654822076540058022619), (+1.09061115789440765465014720560636632, +0.635986194378938942082996586857259577), (+1.22587348288905943682260552925743346, +0.939040081198275654678861056788015031), (+1.12477491387869323441862599447472788, +0.316589296995372727156224029443915034E-1), (+1.29758267283458116811031348809851421, +0.414534783055385225829093797517316992), (+1.10016485020306959633746534379229511, +0.552814239115181629819567724897673360), (+1.39594724341154329334998424323590017, +0.761694248732811148378832143706107623), (+1.81530951334244382819807938584883456, +0.438360816621783306876854941945057101), (+1.22420917105124197167922213546571107, +0.453204618203305559316334593089401856), (+1.68905295360278745014188298624301203, +0.717905954965797009683251582421563205E-3), (+1.45830248585919380840076729571241242, +0.214514572493843534644366225182658676), (+1.67106838509498960987419610338163499, +0.925796094479663241576114150093712314), (+1.09997732879765575993148493706993833, +0.504978923164304181995999770384072167), (+1.37193880755335647569619909034579680, +0.877350761385520533747840789978997936), (+1.73444366916251261071151060479946692, +0.633898801032641572720077480033122097), (+1.19260631259167043800549680989619538, +0.350836987661155992863118196231709504), (+1.43744970125727843671659434470620399, +0.629441764303083585251034447032277187), (+1.63988092510962594511735412064886865, +0.678252189081078607842040621909476740), (+1.02362058267937071513173468428185095, +0.708457386885005608369925065362837287), (+1.78423303165367017153264215913702107, +0.604284873081124922246846434268254586), (+1.22551668704258092059023961900719187, +0.524406753898077768190416331913548741E-1), (+1.09172161259136940222735324998105213, +0.614253103568040356537494663891742392), (+1.61030772148791672156889261982174213, +0.221647390642414481223553834361084912), (+1.00953189572120518283972682031461548, +0.936416018071046131169938398200108347), (+1.28346104581371809162776356251797875, +0.788381775594449818608384922184000277), (+1.71735455117131083009222640871748046, +0.434605401571198495698900215792949555), (+1.85374875512808860772348790605810521, +0.997486664490740737322861472587451006), (+1.20191786847315202260309291022077770, +0.468692095189844063512839091918194757), (+1.57861672273871650898677456784157304, +0.604656159960706445395692320954819991), (+1.49784877786882374888931651852027857, +0.487555609671707752377392856409109654), (+1.07807362988617360851648996428852000, +0.660727210457082480955993801488927904), (+1.55932197702927859410348787907074354, +0.840628509117467010716212930217007636), (+1.67330010086389953184334623674775792, +0.794189998792616080599259265010075825E-1), (+1.68873839228961524056075240139607327, +0.852539336468106578820287370509397848), (+1.57575481802141924472054968448809223, +0.358329314248917495017000739709690286E-1), (+1.42314352095104354866528528625061243, +0.390562062523890756561710255776503389), (+1.74735305694072548163314851052095977, +0.372604196982983660031569331813054239), (+1.10271915776493157760597787062948392, +0.719913863510645417442692265414450512), (+1.77761429808081756493548154160036244, +0.625278592287607516442467785045606427), (+1.96460510460548085796098857290036849, +0.877172022249431170415297177335342895), (+1.61731318754628698101639655764585825, +0.623840553950150102963569285276766157), (+1.24010473503326775728044193318020920, +0.713537166098476366585207789606379670), (+1.75559936248804704668784026851568864, +0.567384148144557950997542804871539533), (+1.26430799702679005609549619398401367, +0.341691575870062169288895459151917616), (+1.92405334981374629071185502406288351, +0.630033363379529371554323143029454171), (+1.63581382631370867991257173986929001, +0.392747660215214493881653003593161985), (+1.38535067056651026803047574230045328, +0.490221735776846977742985585496469816), (+1.75505401271443196693840421143300143, +0.108368537113040900780726130484496262), (+1.49787469453134278384765716899345181, +0.515029105905295845210111955851872953), (+1.29825213497420759617797903006309002, +0.540319300836945117180121187986689860), (+1.83599170862755555480140262719663679, +0.345496068954935306011110569359027342), (+1.82207086497569677972106818935589608, +0.659410723602291594232777161856224766), (+1.42248795416999853755726835567031535, +0.855755591877388101272420858997565501), (+1.18656702060619087443653828944681231, +0.468979621877881465972056316987792816), (+1.93134853066137575227181475492306951, +0.864555383331532480830417163015131976), (+1.07161494184021435949234180626814253, +0.403518597191271259535033781042306510)
475
476atad = getFFTR(getFFTF(data))
477atad = atad / size(atad)
478atad
479(+1.04111738535257196813584661173828613, +0.993451635422329518792231264166156738), (+1.33671176473136160390201139491205874, +0.213922405545442542915388243615075239), (+1.08623451884314922467281181446194714, +0.587276210381549249200788263767326053), (+1.66854590745876058697719158827278196, +0.585079178775150571051582806189659085), (+1.22400876618331228849246378372593695, +0.525037298819500905727322369772935407), (+1.41878065406206091793805570362495399, +0.178278754013794424936273437369295643), (+1.24387531897044838468681395422708338, +0.727827353695423208285322077624929156), (+1.84294048853595312674978751619592245, +0.571781467285185519043994036405484063), (+1.87852528101618136189807545022222056, +0.217398338013283780869485050569390582), (+1.01629325988304750353271406659320116, +0.376348024843969603960912636190635409), (+1.83013639872820532694363660419106828, +0.859333512005139710417651032938942258), (+1.53300757867824752279439171076530920, +0.448828997518693654822076540058022715), (+1.09061115789440765465014720560636632, +0.635986194378938942082996586857259769), (+1.22587348288905943682260552925743404, +0.939040081198275654678861056788014838), (+1.12477491387869323441862599447472826, +0.316589296995372727156224029443913349E-1), (+1.29758267283458116811031348809851478, +0.414534783055385225829093797517316847), (+1.10016485020306959633746534379229530, +0.552814239115181629819567724897673457), (+1.39594724341154329334998424323590055, +0.761694248732811148378832143706107430), (+1.81530951334244382819807938584883475, +0.438360816621783306876854941945057198), (+1.22420917105124197167922213546571146, +0.453204618203305559316334593089401856), (+1.68905295360278745014188298624301203, +0.717905954965797009683251582421515057E-3), (+1.45830248585919380840076729571241261, +0.214514572493843534644366225182658098), (+1.67106838509498960987419610338163499, +0.925796094479663241576114150093712218), (+1.09997732879765575993148493706993852, +0.504978923164304181995999770384071974), (+1.37193880755335647569619909034579719, +0.877350761385520533747840789978998321), (+1.73444366916251261071151060479946731, +0.633898801032641572720077480033122001), (+1.19260631259167043800549680989619557, +0.350836987661155992863118196231709697), (+1.43744970125727843671659434470620418, +0.629441764303083585251034447032277476), (+1.63988092510962594511735412064886865, +0.678252189081078607842040621909476932), (+1.02362058267937071513173468428185095, +0.708457386885005608369925065362837094), (+1.78423303165367017153264215913702107, +0.604284873081124922246846434268254875), (+1.22551668704258092059023961900719206, +0.524406753898077768190416331913547658E-1), (+1.09172161259136940222735324998105252, +0.614253103568040356537494663891742585), (+1.61030772148791672156889261982174271, +0.221647390642414481223553834361084623), (+1.00953189572120518283972682031461567, +0.936416018071046131169938398200108444), (+1.28346104581371809162776356251797895, +0.788381775594449818608384922184000277), (+1.71735455117131083009222640871748066, +0.434605401571198495698900215792949603), (+1.85374875512808860772348790605810579, +0.997486664490740737322861472587451102), (+1.20191786847315202260309291022077770, +0.468692095189844063512839091918194757), (+1.57861672273871650898677456784157342, +0.604656159960706445395692320954819798), (+1.49784877786882374888931651852027877, +0.487555609671707752377392856409110039), (+1.07807362988617360851648996428852019, +0.660727210457082480955993801488928193), (+1.55932197702927859410348787907074393, +0.840628509117467010716212930217007829), (+1.67330010086389953184334623674775830, +0.794189998792616080599259265010080038E-1), (+1.68873839228961524056075240139607346, +0.852539336468106578820287370509398233), (+1.57575481802141924472054968448809280, +0.358329314248917495017000739709688601E-1), (+1.42314352095104354866528528625061262, +0.390562062523890756561710255776503678), (+1.74735305694072548163314851052096016, +0.372604196982983660031569331813054528), (+1.10271915776493157760597787062948411, +0.719913863510645417442692265414450705), (+1.77761429808081756493548154160036282, +0.625278592287607516442467785045606524), (+1.96460510460548085796098857290036887, +0.877172022249431170415297177335343087), (+1.61731318754628698101639655764585864, +0.623840553950150102963569285276766254), (+1.24010473503326775728044193318020939, +0.713537166098476366585207789606379670), (+1.75559936248804704668784026851568922, +0.567384148144557950997542804871539533), (+1.26430799702679005609549619398401367, +0.341691575870062169288895459151917616), (+1.92405334981374629071185502406288428, +0.630033363379529371554323143029454171), (+1.63581382631370867991257173986929040, +0.392747660215214493881653003593162370), (+1.38535067056651026803047574230045366, +0.490221735776846977742985585496470105), (+1.75505401271443196693840421143300182, +0.108368537113040900780726130484496503), (+1.49787469453134278384765716899345181, +0.515029105905295845210111955851873242), (+1.29825213497420759617797903006309002, +0.540319300836945117180121187986690149), (+1.83599170862755555480140262719663756, +0.345496068954935306011110569359027776), (+1.82207086497569677972106818935589647, +0.659410723602291594232777161856225248), (+1.42248795416999853755726835567031574, +0.855755591877388101272420858997566079), (+1.18656702060619087443653828944681250, +0.468979621877881465972056316987792816), (+1.93134853066137575227181475492306989, +0.864555383331532480830417163015132361), (+1.07161494184021435949234180626814253, +0.403518597191271259535033781042306606), (-0.192592994438723585305597794258492732E-33, +0.481482486096808963263994485646231830E-34), (+0.962964972193617926527988971292463659E-34, +0.144444745829042688979198345693869549E-33), (+0.00000000000000000000000000000000000, +0.505556610401649411427194209928543421E-33), (-0.962964972193617926527988971292463659E-34, +0.144444745829042688979198345693869549E-33), (-0.385185988877447170611195588516985464E-33, +0.962964972193617926527988971292463659E-34), (-0.288889491658085377958396691387739098E-33, +0.120370621524202240815998621411557957E-34), (-0.385185988877447170611195588516985464E-33, +0.168518870133883137142398069976181140E-33), (-0.481482486096808963263994485646231830E-33, -0.962964972193617926527988971292463659E-34), (-0.577778983316170755916793382775478196E-33, -0.962964972193617926527988971292463659E-34), (-0.192592994438723585305597794258492732E-33, -0.481482486096808963263994485646231830E-34), (-0.481482486096808963263994485646231830E-33, +0.288889491658085377958396691387739098E-33), (-0.577778983316170755916793382775478196E-33, -0.722223729145213444895991728469347744E-34), (-0.577778983316170755916793382775478196E-33, +0.481482486096808963263994485646231830E-34), (-0.962964972193617926527988971292463659E-34, +0.00000000000000000000000000000000000), (-0.288889491658085377958396691387739098E-33, +0.192592994438723585305597794258492732E-33), (-0.962964972193617926527988971292463659E-34, +0.00000000000000000000000000000000000), (-0.288889491658085377958396691387739098E-33, -0.120370621524202240815998621411557957E-33), (-0.962964972193617926527988971292463659E-34, +0.481482486096808963263994485646231830E-34), (-0.192592994438723585305597794258492732E-33, +0.445371299639548291019194899222764442E-33), (-0.962964972193617926527988971292463659E-34, -0.481482486096808963263994485646231830E-34), (-0.288889491658085377958396691387739098E-33, +0.962964972193617926527988971292463659E-34), (-0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34), (-0.481482486096808963263994485646231830E-33, +0.481482486096808963263994485646231830E-34), (-0.481482486096808963263994485646231830E-33, -0.120370621524202240815998621411557957E-33), (-0.385185988877447170611195588516985464E-33, -0.240741243048404481631997242823115915E-33), (+0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34), (+0.00000000000000000000000000000000000, +0.962964972193617926527988971292463659E-34), (-0.288889491658085377958396691387739098E-33, -0.240741243048404481631997242823115915E-33), (-0.192592994438723585305597794258492732E-33, -0.331019209191556162243996208881784383E-34), (-0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34), (-0.385185988877447170611195588516985464E-33, -0.601853107621011204079993107057789787E-34), (-0.385185988877447170611195588516985464E-33, -0.144444745829042688979198345693869549E-33), (-0.192592994438723585305597794258492732E-33, -0.481482486096808963263994485646231830E-34), (-0.192592994438723585305597794258492732E-33, -0.481482486096808963263994485646231830E-34), (-0.385185988877447170611195588516985464E-33, -0.192592994438723585305597794258492732E-33), (-0.192592994438723585305597794258492732E-33, -0.962964972193617926527988971292463659E-34), (-0.288889491658085377958396691387739098E-33, +0.481482486096808963263994485646231830E-34), (-0.192592994438723585305597794258492732E-33, -0.288889491658085377958396691387739098E-33), (-0.385185988877447170611195588516985464E-33, -0.337037740267766274284796139952362281E-33), (-0.577778983316170755916793382775478196E-33, -0.192592994438723585305597794258492732E-33), (-0.481482486096808963263994485646231830E-33, -0.541667796858910083671993796352010808E-33), (-0.192592994438723585305597794258492732E-33, -0.962964972193617926527988971292463659E-34), (-0.481482486096808963263994485646231830E-33, -0.168518870133883137142398069976181140E-33), (-0.192592994438723585305597794258492732E-33, -0.361111864572606722447995864234673872E-33), (-0.481482486096808963263994485646231830E-33, -0.385185988877447170611195588516985464E-33), (-0.962964972193617926527988971292463659E-34, -0.144444745829042688979198345693869549E-33), (-0.577778983316170755916793382775478196E-33, -0.337037740267766274284796139952362281E-33), (-0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34), (-0.288889491658085377958396691387739098E-33, -0.192592994438723585305597794258492732E-33), (-0.192592994438723585305597794258492732E-33, +0.144444745829042688979198345693869549E-33), (-0.385185988877447170611195588516985464E-33, -0.192592994438723585305597794258492732E-33), (-0.288889491658085377958396691387739098E-33, -0.481482486096808963263994485646231830E-34), (-0.481482486096808963263994485646231830E-33, -0.192592994438723585305597794258492732E-33), (-0.962964972193617926527988971292463659E-34, -0.216667118743564033468797518540804323E-33), (-0.577778983316170755916793382775478196E-33, -0.457408361791968515100794761363920238E-33), (-0.288889491658085377958396691387739098E-33, -0.192592994438723585305597794258492732E-33), (-0.192592994438723585305597794258492732E-33, -0.433334237487128066937595037081608647E-33), (-0.962964972193617926527988971292463659E-34, -0.192592994438723585305597794258492732E-33), (-0.577778983316170755916793382775478196E-33, -0.577778983316170755916793382775478196E-33), (-0.481482486096808963263994485646231830E-33, -0.770371977754894341222391177033970927E-33), (-0.481482486096808963263994485646231830E-33, -0.625927231925851652243192831340101379E-33)
480reltol = sqrt(epsilon(1._TKC))
481reltol
482+0.138777878078144567552953958511352539E-16
483isClose(data, atad(1:size(data)), reltol = reltol)
484T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
485call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
486
487lenData = getUnifRand(5, 100)
488lenData
489+47
490data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
491data
492+1.07960534, +1.97043324, +1.07362485, +1.21197033, +1.51923203, +1.32759309, +1.75273991, +1.96316934, +1.00866938, +1.90815592, +1.62649417, +1.86811471, +1.15187311, +1.64616275, +1.07522607, +1.50143957, +1.06552672, +1.31850708, +1.59708583, +1.59676409, +1.54799032, +1.40302420, +1.42803812, +1.47953403, +1.67535281, +1.69377542, +1.45633388, +1.98580670, +1.88800526, +1.65599465, +1.79459643, +1.70067239, +1.40971088, +1.95801997, +1.31041121, +1.62088370, +1.42731607, +1.35765886, +1.96893847, +1.20789385, +1.78057885, +1.52970004, +1.50081515, +1.84641695, +1.49776411, +1.93079877, +1.89490533
493
494atad = getFFTR(getFFTF(data))
495atad = atad * 2 / size(atad)
496atad
497+1.07960534, +1.97043312, +1.07362473, +1.21197033, +1.51923192, +1.32759297, +1.75273979, +1.96316934, +1.00866926, +1.90815580, +1.62649393, +1.86811471, +1.15187311, +1.64616251, +1.07522595, +1.50143945, +1.06552672, +1.31850684, +1.59708595, +1.59676409, +1.54799020, +1.40302396, +1.42803812, +1.47953391, +1.67535257, +1.69377518, +1.45633364, +1.98580670, +1.88800502, +1.65599465, +1.79459643, +1.70067239, +1.40971065, +1.95801985, +1.31041110, +1.62088370, +1.42731583, +1.35765874, +1.96893847, +1.20789385, +1.78057873, +1.52969992, +1.50081491, +1.84641719, +1.49776387, +1.93079853, +1.89490521, +0.119209290E-6, -0.298023224E-6, +0.00000000, -0.238418579E-6, +0.238418579E-6, -0.119209290E-6, -0.596046448E-7, +0.596046448E-7, +0.596046448E-7, +0.596046448E-7, +0.00000000, -0.596046448E-7, +0.417232513E-6, +0.596046448E-7, -0.596046448E-7, +0.00000000, +0.238418579E-6
498reltol = sqrt(epsilon(1._TKC))
499reltol
500+0.345266977E-3
501isClose(data, atad(1:size(data)), reltol = reltol)
502T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
503call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
504
505lenData = getUnifRand(5, 100)
506lenData
507+68
508data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
509data
510+1.4863627850669496, +1.9486711955311926, +1.7790380917683197, +1.0261413445185392, +1.9163469828223165, +1.0133554122611570, +1.8747372301859180, +1.2890542646927328, +1.1712423571848205, +1.9783647273907841, +1.7071734779565584, +1.3264272537165385, +1.9419803141835326, +1.5858934953366544, +1.4442609115907163, +1.3225876480128416, +1.3864132528352915, +1.7171902821029286, +1.8902390610008801, +1.5407058495942494, +1.4410795625304811, +1.2018934485745745, +1.8432166340623160, +1.0651797380478674, +1.1124350415975421, +1.8076787585049774, +1.0351200494470891, +1.8649300070170240, +1.2372435702692117, +1.4872773260071317, +1.0724495627396116, +1.0152528072673201, +1.5791043039630102, +1.7688902304484313, +1.0233997854261894, +1.8339514322097703, +1.9384080117951732, +1.8828288777514233, +1.7046408537061799, +1.7103375301893469, +1.2733999721103211, +1.0497867838000934, +1.5572696242853306, +1.6647306692849337, +1.6841027067256995, +1.3186783631542167, +1.8909410994676417, +1.0100904282574121, +1.5413299034393262, +1.0587394368618028, +1.9060370507812485, +1.3216726860794035, +1.9406182636216927, +1.7811418927226987, +1.0857535696631069, +1.2572691030206820, +1.5613340407191987, +1.7676405484733819, +1.5655976818189590, +1.4448820363175257, +1.2505071516357629, +1.0828150547227402, +1.7522930101735845, +1.2727032923855290, +1.1465005285600134, +1.0976415229943546, +1.6814859236083188, +1.9147477883840411
511
512atad = getFFTR(getFFTF(data))
513atad = atad * 2 / size(atad)
514atad
515+1.4863627850669496, +1.9486711955311922, +1.7790380917683197, +1.0261413445185397, +1.9163469828223159, +1.0133554122611574, +1.8747372301859175, +1.2890542646927325, +1.1712423571848203, +1.9783647273907841, +1.7071734779565584, +1.3264272537165391, +1.9419803141835326, +1.5858934953366544, +1.4442609115907161, +1.3225876480128416, +1.3864132528352915, +1.7171902821029286, +1.8902390610008801, +1.5407058495942492, +1.4410795625304809, +1.2018934485745745, +1.8432166340623151, +1.0651797380478674, +1.1124350415975417, +1.8076787585049776, +1.0351200494470887, +1.8649300070170240, +1.2372435702692108, +1.4872773260071313, +1.0724495627396109, +1.0152528072673201, +1.5791043039630104, +1.7688902304484309, +1.0233997854261894, +1.8339514322097703, +1.9384080117951734, +1.8828288777514222, +1.7046408537061799, +1.7103375301893466, +1.2733999721103211, +1.0497867838000934, +1.5572696242853303, +1.6647306692849337, +1.6841027067256995, +1.3186783631542158, +1.8909410994676419, +1.0100904282574117, +1.5413299034393262, +1.0587394368618028, +1.9060370507812485, +1.3216726860794030, +1.9406182636216927, +1.7811418927226974, +1.0857535696631071, +1.2572691030206813, +1.5613340407191982, +1.7676405484733815, +1.5655976818189590, +1.4448820363175252, +1.2505071516357633, +1.0828150547227393, +1.7522930101735845, +1.2727032923855282, +1.1465005285600134, +1.0976415229943539, +1.6814859236083184, +1.9147477883840411, +0.77715611723760958E-15, -0.33306690738754696E-15, -0.11102230246251565E-15, -0.22204460492503131E-15, -0.11102230246251565E-15, -0.11102230246251565E-15, -0.22204460492503131E-15, -0.55511151231257827E-15, +0.33306690738754696E-15, -0.11102230246251565E-15, +0.0000000000000000, -0.33306690738754696E-15, +0.0000000000000000, -0.44408920985006262E-15, +0.33306690738754696E-15, -0.33306690738754696E-15, +0.88817841970012523E-15, -0.33306690738754696E-15, +0.11102230246251565E-15, +0.11102230246251565E-15, +0.66613381477509392E-15, -0.44408920985006262E-15, +0.22204460492503131E-15, -0.33306690738754696E-15, +0.77715611723760958E-15, +0.11102230246251565E-15, +0.66613381477509392E-15, -0.44408920985006262E-15, -0.11102230246251565E-15, -0.33306690738754696E-15, -0.11102230246251565E-15, +0.0000000000000000, +0.0000000000000000, +0.44408920985006262E-15, -0.33306690738754696E-15, +0.0000000000000000, +0.0000000000000000, -0.33306690738754696E-15, -0.33306690738754696E-15, -0.11102230246251565E-15, +0.11102230246251565E-15, +0.66613381477509392E-15, -0.33306690738754696E-15, +0.44408920985006262E-15, -0.11102230246251565E-15, +0.11102230246251565E-15, +0.11102230246251565E-15, +0.11102230246251565E-15, +0.11102230246251565E-15, +0.99920072216264089E-15, -0.22204460492503131E-15, +0.44408920985006262E-15, +0.44408920985006262E-15, +0.44408920985006262E-15, -0.11102230246251565E-15, +0.33306690738754696E-15, -0.44408920985006262E-15, +0.99920072216264089E-15, -0.33306690738754696E-15, +0.55511151231257827E-15
516reltol = sqrt(epsilon(1._TKC))
517reltol
518+0.14901161193847656E-7
519isClose(data, atad(1:size(data)), reltol = reltol)
520T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
521call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
522
523lenData = getUnifRand(5, 100)
524lenData
525+74
526data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
527data
528+1.07573971701293215333270662168630630, +1.38658226442354235457873705976262719, +1.11837414695657322102293151526182741, +1.15589652886787146598663551984533557, +1.85682044961615881073566028002427311, +1.09244827429861608079423056287610221, +1.94878318022384313708857963875516679, +1.07172947234289043597731892336179960, +1.85718004797312233108729717399082520, +1.93500620459878431824681671295102958, +1.54223233309557109920246972903412519, +1.53685909412123160833165100222991558, +1.62362300280726530442707678694954324, +1.83149048180450863156171691917175302, +1.72102988732904876685106287286407002, +1.18761935341115317919854162136293333, +1.53340324036838133716894324299940210, +1.69199731073210154995356835528946514, +1.58852772721195594476980404370922008, +1.58328557846892914008366734693709462, +1.10436842314270936606594135739811679, +1.37529217850211540516901569690887022, +1.04355480080856764756487197089639765, +1.13656509977273291413836521356189463, +1.51414967800650348879838527986069178, +1.04418557912992211706784700115488299, +1.06882768954356313213897576312544886, +1.11182879173454632330812030699076710, +1.35847122488461609672190221541606820, +1.12462211722936063962003469690365067, +1.81746572105971154879131920839741644, +1.69357292444869997364943071106166464, +1.35498769119678668482454515105857813, +1.00032569068939248110235037668968931, +1.43860325118755918116936464784524779, +1.98199352500290509993068105874467726, +1.20893007126209678440321566917231186, +1.78688180744428011917353223982873061, +1.09399849649764902539014998827770075, +1.67645238885143810396782253365764997, +1.41774729861982450758983853872071821, +1.32081479707426724796983120129686865, +1.89049878665121036614789626643791629, +1.77955023336616422126041904875923363, +1.77720596548848619956473038205273087, +1.36650991530446708995251011485859411, +1.53539491626730514331469998848004636, +1.53355802853162192028382461801376213, +1.56854413151010430432611996760930638, +1.10834959700889745003131607447490205, +1.07963778848471420825433614639859851, +1.53385684787282970438536398067467683, +1.76170410027744457068571421763546707, +1.59600290351592603665297977122604918, +1.94227354438950409355454835143824585, +1.36649605055115826150453525584314954, +1.11662924562015412187259518618267401, +1.82635272237899043086462138280830843, +1.72929787000513262417622576323237259, +1.46321865017222468089410413361127327, +1.94822799131729861720273742815581828, +1.42961107338428705325616501767685738, +1.82425567893027321403289844808696426, +1.83862953031712517744675750535109360, +1.31504901312304276589148667433052127, +1.68321324709359182816746496734448888, +1.27016707883347198470263117933485426, +1.13655661902550682575034961804036026, +1.07799329497975803527434727853202952, +1.16662175328387007357695831779104691, +1.30482312903562861903043398233917709, +1.35154211209281917845034262654328314, +1.08473819803395660591496317122492805, +1.26866898763432106359187567127041724
529
530atad = getFFTR(getFFTF(data))
531atad = atad * 2 / size(atad)
532atad
533+1.07573971701293215333270662168630630, +1.38658226442354235457873705976262758, +1.11837414695657322102293151526182741, +1.15589652886787146598663551984533576, +1.85682044961615881073566028002427291, +1.09244827429861608079423056287610163, +1.94878318022384313708857963875516660, +1.07172947234289043597731892336179922, +1.85718004797312233108729717399082558, +1.93500620459878431824681671295102958, +1.54223233309557109920246972903412596, +1.53685909412123160833165100222991539, +1.62362300280726530442707678694954362, +1.83149048180450863156171691917175282, +1.72102988732904876685106287286407041, +1.18761935341115317919854162136293294, +1.53340324036838133716894324299940210, +1.69199731073210154995356835528946514, +1.58852772721195594476980404370921988, +1.58328557846892914008366734693709481, +1.10436842314270936606594135739811698, +1.37529217850211540516901569690886983, +1.04355480080856764756487197089639745, +1.13656509977273291413836521356189444, +1.51414967800650348879838527986069159, +1.04418557912992211706784700115488299, +1.06882768954356313213897576312544886, +1.11182879173454632330812030699076710, +1.35847122488461609672190221541606840, +1.12462211722936063962003469690365048, +1.81746572105971154879131920839741644, +1.69357292444869997364943071106166522, +1.35498769119678668482454515105857851, +1.00032569068939248110235037668968873, +1.43860325118755918116936464784524779, +1.98199352500290509993068105874467726, +1.20893007126209678440321566917231206, +1.78688180744428011917353223982873023, +1.09399849649764902539014998827770114, +1.67645238885143810396782253365764997, +1.41774729861982450758983853872071878, +1.32081479707426724796983120129686865, +1.89049878665121036614789626643791687, +1.77955023336616422126041904875923383, +1.77720596548848619956473038205273125, +1.36650991530446708995251011485859392, +1.53539491626730514331469998848004674, +1.53355802853162192028382461801376213, +1.56854413151010430432611996760930676, +1.10834959700889745003131607447490186, +1.07963778848471420825433614639859890, +1.53385684787282970438536398067467644, +1.76170410027744457068571421763546727, +1.59600290351592603665297977122604879, +1.94227354438950409355454835143824604, +1.36649605055115826150453525584314935, +1.11662924562015412187259518618267382, +1.82635272237899043086462138280830843, +1.72929787000513262417622576323237259, +1.46321865017222468089410413361127365, +1.94822799131729861720273742815581866, +1.42961107338428705325616501767685718, +1.82425567893027321403289844808696445, +1.83862953031712517744675750535109360, +1.31504901312304276589148667433052165, +1.68321324709359182816746496734448888, +1.27016707883347198470263117933485426, +1.13655661902550682575034961804036007, +1.07799329497975803527434727853202952, +1.16662175328387007357695831779104671, +1.30482312903562861903043398233917709, +1.35154211209281917845034262654328314, +1.08473819803395660591496317122492805, +1.26866898763432106359187567127041781, -0.481482486096808963263994485646231830E-33, -0.481482486096808963263994485646231830E-33, -0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000, -0.192592994438723585305597794258492732E-33, -0.962964972193617926527988971292463659E-34, +0.192592994438723585305597794258492732E-33, -0.962964972193617926527988971292463659E-34, +0.192592994438723585305597794258492732E-33, -0.962964972193617926527988971292463659E-34, +0.192592994438723585305597794258492732E-33, +0.192592994438723585305597794258492732E-33, -0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34, -0.385185988877447170611195588516985464E-33, -0.288889491658085377958396691387739098E-33, -0.962964972193617926527988971292463659E-34, -0.385185988877447170611195588516985464E-33, +0.00000000000000000000000000000000000, -0.192592994438723585305597794258492732E-33, -0.962964972193617926527988971292463659E-34, -0.192592994438723585305597794258492732E-33, -0.962964972193617926527988971292463659E-34, +0.00000000000000000000000000000000000, +0.00000000000000000000000000000000000, +0.962964972193617926527988971292463659E-34, -0.385185988877447170611195588516985464E-33, +0.192592994438723585305597794258492732E-33, -0.192592994438723585305597794258492732E-33, -0.962964972193617926527988971292463659E-34, -0.192592994438723585305597794258492732E-33, -0.288889491658085377958396691387739098E-33, -0.192592994438723585305597794258492732E-33, -0.192592994438723585305597794258492732E-33, -0.288889491658085377958396691387739098E-33, +0.00000000000000000000000000000000000, -0.481482486096808963263994485646231830E-33, +0.192592994438723585305597794258492732E-33, -0.385185988877447170611195588516985464E-33, +0.192592994438723585305597794258492732E-33, -0.192592994438723585305597794258492732E-33, +0.288889491658085377958396691387739098E-33, -0.192592994438723585305597794258492732E-33, +0.192592994438723585305597794258492732E-33, -0.577778983316170755916793382775478196E-33, +0.192592994438723585305597794258492732E-33, +0.962964972193617926527988971292463659E-34, -0.288889491658085377958396691387739098E-33, +0.962964972193617926527988971292463659E-34, -0.288889491658085377958396691387739098E-33, -0.288889491658085377958396691387739098E-33, -0.385185988877447170611195588516985464E-33, -0.192592994438723585305597794258492732E-33, +0.962964972193617926527988971292463659E-34
534reltol = sqrt(epsilon(1._TKC))
535reltol
536+0.138777878078144567552953958511352539E-16
537isClose(data, atad(1:size(data)), reltol = reltol)
538T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
539call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
540
541
Test:
test_pm_fftnr


Final Remarks ⛓

If you believe this algorithm or its documentation can be improved, we appreciate your contribution and help to edit this page's documentation and source file on GitHub.
For details on the naming abbreviations, see this page.
For details on the naming conventions, see this page.
This software is distributed under the MIT license with additional terms outlined below.

  1. If you use any parts or concepts from this library to any extent, please acknowledge the usage by citing the relevant publications of the ParaMonte library.
  2. If you regenerate any parts/ideas from this library in a programming environment other than those currently supported by this ParaMonte library (i.e., other than C, C++, Fortran, MATLAB, Python, R), please also ask the end users to cite this original ParaMonte library.

This software is available to the public under a highly permissive license.
Help us justify its continued development and maintenance by acknowledging its benefit to society, distributing it, and contributing to it.

Copyright
Computational Data Science Lab
Author:
Fatemeh Bagheri, Tuesday 11:34 PM, August 10, 2021, Dallas, TX

Definition at line 611 of file pm_fftnr.F90.

The documentation for this interface was generated from the following file: